1 : C CRCHP0 SOURCE MAGN 13/03/04 21:15:00 7710 2 : SUBROUTINE CRCHP0(MCHPOI,MPOVAL) 3 : IMPLICIT INTEGER(I-N) 4 : IMPLICIT REAL*8 (A-H,O-Z) 5 : C************************************************************************* 6 : C 7 : C Ce SP cree un champoint vide 8 : C 9 : C************************************************************************* 10 : -INC CCOPTIO 11 : -INC SMCHPOI 12 : CHARACTER*8 TYPE 13 : 14 : TYPE=' ' 15 : MCHPOI=0 16 : NAT=1 17 : NSOUPO=1 18 : N =0 19 : NC=0 20 : SEGINI MCHPOI,MSOUPO,MPOVAL 21 : IFOPOI = IFOUR 22 : JATTRI(1)=2 23 : MTYPOI=TYPE 24 : MOCHDE=' ' 25 : IPCHP(1)=MSOUPO 26 : SEGDES MCHPOI,MSOUPO,MPOVAL 27 : RETURN 28 : END 29 :
© Cast3M 2003 - All rights reserved.
Disclaimer