anchor.diff:  
   ! Card PRNT
   IF (bprnt == 1) CALL inp_prnt (uprnt)
  -
  -!!! Default alpha = 0.0
  -ALLOCATE(al(nnod,ng))
  -DO g = 1, ng
  -    DO i = 1, nnod
  -		al(i,g)%dc = 0.d0
  -	END DO
  -END DO
  -
  -!CARD ADF
  -IF (badf == 1) CALL inp_adf (uadf)
   
   !CARD CROD
   IF (bcrod == 1) CALL inp_crod (ucrod)
  
positive.code: 
  ! Miscellaneous things
  CALL misc()
  
  DEALLOCATE(mnum)
  DO i= 1,np
  
negative.code: 	STOP
  END IF
  
  ! Card WRST
  IF (bwrst == 1) CALL inp_wrst (uwrst)
  
  