Esope source files

   1 : C MENFOR    SOURCE    CHAT      05/01/13    01:43:27     5004           
   2 : C   met le champoint sous une forme simple
   3 : C
   4 :       subroutine menfor(ichp,fer)
   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 /FER/(NFI(ITT),MAI(IPP),ITOUR),AFER.FER                           
  11 : -INC SMCHPOI
  12 : -INC CCOPTIO
  13 : -INC SMCOORD
  14 : -INC SMELEME
  15 : * on insere a la fin de fer les pts qui nous interessent de facon a ce
  16 : * qu'ils soient projetes
  17 :       mchpoi=ichp
  18 :       segact mchpoi
  18 :       if (ipchp(/1).ne.1) call erreur (180)
  19 :       if (ierr.ne.0) return
  20 :       msoupo=ipchp(1)
  21 :       segact msoupo
  22 :       meleme=igeoc
  23 :       segact meleme
  24 :       mpoval=ipoval
  25 :       segact mpoval
  25 :       if (vpocha(/2).ne.1) call erreur(180)
  26 :       npc=num(/2)
  27 :       its=nfi(/1)
  28 :       itt=its+npc
  29 :       ipp=mai(/1)+1
  30 :       segadj fer
  31 :       segini ichp
  32 :       itt=mai(itour+1)
  33 :       mai(itour+2)=itt+npc
  34 :       do 10 i=1,num(/2)
  35 :        ip=num(1,i)
  36 :        nfi(itt+i)=ip
  37 :        den(i)=vpocha(i,1)
  38 :   10  continue
  39 :       segdes mchpoi,msoupo,mpoval,meleme
  40 :       return
  41 :       end
  42 :