Télécharger prquoi.eso

Retour à la liste

Numérotation des lignes :

  1. C PRQUOI SOURCE CHAT 11/03/16 21:29:43 6902
  2. subroutine prquoi(imodel)
  3. implicit real*8(A-H,O-Z)
  4. implicit integer (I-N)
  5. -INC CCOPTIO
  6. -INC SMMODEL
  7. SEGMENT info
  8. INTEGER INFELL(JG)
  9. ENDSEGMENT
  10. segact imodel*mod
  11. nele=nefmod
  12. if(nele.eq.22) return
  13. IF(INFMOD(/1).NE.0)THEN
  14. NPINT=INFMOD(1)
  15. ELSE
  16. NPINT=0
  17. ENDIF
  18. inttyp=-10
  19. * write(6,*) ' prquoi : nele ' , nele
  20. call elquoi(nele,npint,inttyp,iptr,imodel)
  21. info=IPTR
  22. segact info
  23. do i=1,infell(/1)
  24. infele(i)=infell(i)
  25. enddo
  26. segsup info
  27. return
  28. end
  29.  
  30.  
  31.  
  32.  
  33.  
  34.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales