Sources Esope | Cast3M

menfor
C MENFOR    SOURCE    CB215821  20/11/25    13:34:21     10792          
C   met le champoint sous une forme simple
C
      subroutine menfor(ichp,fer)
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8 (A-H,O-Z)
      segment ichp
        real*8 xr(npc),yr(npc),den(npc)
      endsegment
      SEGMENT /FER/(NFI(ITT),MAI(IPP),ITOUR),AFER.FER
-INC SMCHPOI
 
-INC PPARAM
-INC CCOPTIO
-INC SMCOORD
-INC SMELEME
* on insere a la fin de fer les pts qui nous interessent de facon a ce
* qu'ils soient projetes
      mchpoi=ichp
      segact mchpoi
      if (ipchp(/1).ne.1) call erreur (180)
      if (ierr.ne.0) return
      msoupo=ipchp(1)
      segact msoupo
      meleme=igeoc
      segact meleme
      mpoval=ipoval
      segact mpoval
      if (vpocha(/2).ne.1) call erreur(180)
      npc=num(/2)
      its=nfi(/1)
      itt=its+npc
      ipp=mai(/1)+1
      segadj fer
      segini ichp
      itt=mai(itour+1)
      mai(itour+2)=itt+npc
      do 10 i=1,num(/2)
       ip=num(1,i)
       nfi(itt+i)=ip
       den(i)=vpocha(i,1)
  10  continue
      segdes mchpoi,msoupo,mpoval,meleme
      return
      end