anchor.diff:  
           if(ifipa.lt.1) goto 340
           if(progrm.eq.'MAD') then
  -#ifndef STF
  -           c=c*c1e3
  -           d=d*c1e3
  -           e=e*c1e3
  -           f=f*c1e3
  -           g=g*c1e3
  -           p=p*c1e3
  -#else
  -           write(lout,*) "ERROR in postpr: program=MAD not valid for STF."
  -           call prror
  -#endif
  -        endif !END if(program.eq.'MAD')
  +          write(lerr,"(a)") "POSTPR> ERROR Program=MAD no longer supported"
  +          call prror
  +        endif
   
           iskc=iskc+1
           if(mod(iskc,iskip).ne.0) goto 340
  
positive.code:           iskc=-1
            do 460 j=1,i11*iskip+nstart
   435        ifipa=0
  #ifndef STF
              if(ntwin.eq.1) then
                 read(nfile,end=470,iostat=ierro) ia,ifipa,b_tmp,c_tmp,d_tmp,e_tmp,f_tmp,g_tmp,h_tmp,p_tmp
  
                 b=real(b_tmp,fPrec)
                 c=real(c_tmp,fPrec)
                 d=real(d_tmp,fPrec)
                 e=real(e_tmp,fPrec)
                 f=real(f_tmp,fPrec)
                 g=real(g_tmp,fPrec)
                 h=real(h_tmp,fPrec)
                 p=real(p_tmp,fPrec)
  
              elseif(ntwin.eq.2) then
                 read(nfile,end=470,iostat=ierro) ia,ifipa,b_tmp,c_tmp,d_tmp,e_tmp,f_tmp,g_tmp,h_tmp,p_tmp, &
       & ilapa,b_tmp,c1_tmp,d1_tmp,e1_tmp,f1_tmp,g1_tmp,h1_tmp,p1_tmp
  
                 b=real(b_tmp,fPrec)
                 c=real(c_tmp,fPrec)
                 d=real(d_tmp,fPrec)
                 e=real(e_tmp,fPrec)
                 f=real(f_tmp,fPrec)
                 g=real(g_tmp,fPrec)
                 h=real(h_tmp,fPrec)
                 p=real(p_tmp,fPrec)
  
                 c1=real(c1_tmp,fPrec)
                 d1=real(d1_tmp,fPrec)
  
negative.code:       if((ia-nstart).lt.0) goto 190
  
        if(progrm.eq.'MAD') then
          write(lerr,"(a)") "POSTPR> ERROR Program=MAD no longer supported"
          call prror
        endif
  
        if(ntwin.eq.2) then
          x(1,1)=c
  