anchor.diff:           ISOFF = -IS
            CALL VNAM(IS, INDEX, AS,800,LS,ITSS,ISCRTY)
         ELSEIF(IS.GT.0.AND.IS.LE.LNAM) THEN
  -         DO 30 J=1,NPAR(IS,4)
  -  30     INDEX(J) = NARI(I,4+J)
  +         DO J=1,NPAR(IS,4)
  +           INDEX(J) = NARI(I,4+J)
  +         END DO
            CALL VNAM(IS, INDEX, AS,800,LS,ITSS,ISCRTY)
            IF(ITS.NE.NPAR(IS,2)) THEN
               IF((ITS.EQ.1).AND.(NPAR(IS,2).EQ.4)) THEN
  
positive.code: !frs         READ(1,'(A6,i1,1X,A64)',END=60) PREC,INITIAL,IDAT
           READ(1,'(A6,i1,1X,A64)',END=600) PREC,INITIAL,IDAT
           IF(PREC(1:4).ne.'*FOX'.and.(INITIAL.ne.0.or.INITIAL.ne.1)) then
             write(6,*) 'Sorry, you are not using the format introduced ',&
             'by F.Schmidt'//' which ',                                   &
             'requires an additional line right after the line: ',        &
             '*FOX  E D; for a properly allocation'//                     &
  
negative.code: ! ANFANG UNTERPROGRAMM
    
        SUBROUTINE PRECOM
        USE, INTRINSIC :: ISO_FORTRAN_ENV, ONLY : OUTPUT_UNIT, ERROR_UNIT
  !     *****************
  !
  !     THIS IS THE FOX EXTENDED FORTRAN PRECOMILER.
  !     IT READS A FILE AND TRANSFORMS IT TO REGULAR FORTRAN.
  !
  !-----MEMORY MANAGEMENT -----------------------------------------------------! 1
        PARAMETER(LNAM=10000,LTEX=4000,LCC=10000)               ! 2
        CHARACTER CNAM(LNAM)*8,CTEX(LTEX)*80,CBLA*80                           ! 3
        INTEGER NPAR(LNAM,17)                                                  ! 4
        DOUBLE PRECISION CC(LCC)                                               ! 5
  