Esope source files

   1 : C MENFO2    SOURCE    CHAT      05/01/13    01:43:22     5004           
   2 : C   met le champoint sous une forme simple
   3 : C
   4 :       subroutine menfo2(ichp,fer,xproj)
   5 :       IMPLICIT INTEGER(I-N)
   6 :       IMPLICIT REAL*8 (A-H,O-Z)
   7 :       segment ichp
   8 :         real*8 xr(npc),yr(npc),den(npc)
   9 :       endsegment
  10 :       SEGMENT XPROJ(3,IMAX)
  11 :       SEGMENT /FER/(NFI(ITT),MAI(IPP),ITOUR),AFER.FER                           
  12 : -INC SMCHPOI
  13 : -INC CCOPTIO
  14 : -INC SMCOORD
  15 : -INC SMELEME
  16 :       do 10 i=1,mai(itour+2)-mai(itour+1)
  17 :        xr(i)=xproj(1,i+mai(itour+1))
  18 :        yr(i)=xproj(2,i+mai(itour+1))
  19 :   10  continue
  20 :       return
  21 :       end
  22 :