Sources Esope | Cast3M

menfo2
C MENFO2    SOURCE    CB215821  20/11/25    13:34:20     10792          
C   met le champoint sous une forme simple
C
      subroutine menfo2(ichp,fer,xproj)
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8 (A-H,O-Z)
      segment ichp
        real*8 xr(npc),yr(npc),den(npc)
      endsegment
      SEGMENT XPROJ(3,IMAX)
      SEGMENT /FER/(NFI(ITT),MAI(IPP),ITOUR),AFER.FER
-INC SMCHPOI
 
-INC PPARAM
-INC CCOPTIO
-INC SMCOORD
-INC SMELEME
      do 10 i=1,mai(itour+2)-mai(itour+1)
       xr(i)=xproj(1,i+mai(itour+1))
       yr(i)=xproj(2,i+mai(itour+1))
  10  continue
      return
      end