anchor.diff:  	STOP
   END IF
   
  -! Card ESRC
  -IF (mode == 'FIXEDSRC' .AND. besrc == 1) THEN
  -    CALL inp_esrc(uesrc)
  -ELSE IF (mode == 'FIXEDSRC' .AND. besrc /= 1) THEN
  -    WRITE(ounit,*) '   CALCULATION MODE IS FIXED SOURCE'
  -    WRITE(ounit,1041) 'ESRC', 'FIXED SOURCE'
  -	STOP
  -ELSE IF (mode /= 'FIXEDSRC' .AND. besrc == 1) THEN
  -    WRITE(ounit,*) '   ESRC CARD IS NOT NECESSARY FOR THIS CALCULATION MODE'
  -	STOP
  -ELSE
  -    CONTINUE
  -END IF
  -
   ! Card WRST
   IF (bwrst == 1) CALL inp_wrst (uwrst)
   
  
positive.code: 
  ! 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)
  
negative.code: 
  ! Miscellaneous things
  CALL misc()
  
  !CARD ADF
  ALLOCATE(al(nnod,ng))
  DO g = 1, ng
      DO i = 1, nnod
  		al(i,g)%dc = 0.d0 ! Default alpha = 0.0
  	END DO
  END DO
  IF (badf == 1) CALL inp_adf (uadf)
  
  ! Card ESRC
  IF (mode == 'FIXEDSRC' .AND. besrc == 1) THEN
      CALL inp_esrc(uesrc)
  ELSE IF (mode == 'FIXEDSRC' .AND. besrc /= 1) THEN
      WRITE(ounit,*) '   CALCULATION MODE IS FIXED SOURCE'
      WRITE(ounit,1041) 'ESRC', 'FIXED SOURCE'
  	STOP
  ELSE IF (mode /= 'FIXEDSRC' .AND. besrc == 1) THEN
      WRITE(ounit,*) '   ESRC CARD IS NOT NECESSARY FOR THIS CALCULATION MODE'
  	STOP
  ELSE
      CONTINUE
  END IF
  
  DEALLOCATE(mnum)
  DO i= 1,np
  