anchor.diff:        MODULE FIOSS_AUX
   
         CONTAINS
  +
  +      function read_param(par_name) result(par)
  +
  +      character (len = 2), intent(in) :: par_name
  +
  +      integer, intent(out) :: par
  +
  +      character (len = 2) :: ftc
  +
  +      integer :: fu
  +
  +      fu = 13745
  +     
  +      open(unit = fu, file = 'MODFILE', action = 'read')
  +
  +      ftc = '  '
  +
  +      do while (ftc .ne. par_name)
  +
  +         read(fu, '(A2)') ftc
  +
  +      enddo
  +
  +      read(fu, *) par
  +
  +      close(fu)
  +
  +      return
  +
  +      end function param
   
         SUBROUTINE READ_NLTETRAPOP(TI, TPL, TPU, TDL, TDU)
   
  
positive.code:      $             ELEMENT,SYMBOL,NOM,KODAT,ATMASS,STAGE,NFIRST,
       $             NLAST,WAVARR,SIGARR,NFDIM)
  
  !     READING OF THE MODEL FILE ----------------------------------
        IFL = 3; open(IFL, file = 'MODFILE', STATUS='OLD')
        rewind IFL
        lblank=0
        CALL READMOD(IFL,N,ND,TEFF,R,NP,P,Z,ENTOT,VELO,
       $             GRADI,RSTAR,VDOP,NF,
       $             XLAMBDA(1 : NF),FWEIGHT(1 : NF),AKEY(1 : NF),
       $             ABXYZ,NATOM,MODHEAD,JOBNUM,LBLANK)
        close(IFL)
  
        allocate(R(ND))
        allocate(entot(ND))
  
  
        IFL = 3; open(IFL, file = 'POPNUM', STATUS='OLD')
  
negative.code: 
        real*8, allocatable, dimension(:) ::       XLAMBDA, FWEIGHT, EMFLUX, AKEY
  
        real*8, allocatable, dimension(:) ::       P, ZRAY, RRAY
  
        real*8, allocatable, dimension(:) ::       XCMF
  
        integer, allocatable, dimension(:) ::      levelpl, nfedge, itne, iwarn
  
  