Sources Esope | Cast3M

prajus
C PRAJUS    SOURCE    BP208322  16/11/18    21:19:59     9177           
C   INTERFACE AVEC TRANSF POUR PERMETTRE A CE DERNIER D'ETRE
C   ECRIT EN FORTRAN,CE QUI EST PLUS ECONOMIQUE
C
      SUBROUTINE PRAJUS(FER,XPROJ,MELEME,NUMELG,NUMNP,ichp)
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8 (A-H,O-Z)
-INC PPARAM
-INC CCOPTIO
-INC SMELEME
-INC CCGEOME
      SEGMENT/FER/(NFI(ITT),MAI(IPP),ITOUR),AFER.FER
      SEGMENT/XPROJ/(X(3,1))
      SEGMENT /SXAUX/(XAUX(2,NFI(/1)),INAT(MAI(/1)))
      CHARACTER*(4) MOT
      NFMAX=NFI(/1)
      MAIMAX=MAI(/1)-1
      IMOYE=0
      QUAL=0.4
      IREGU=4
 930  CONTINUE
      CALL LIRCHA(MOT,0,IRETOU)
      IF (IRETOU.EQ.0) GOTO 932
      IF (MOT.NE.'REGU') GOTO 910
      CALL LIRENT(IREGU,1,IRETOU)
      IF (IERR.NE.0) RETURN
      GOTO 930
 910  CONTINUE
      IF (MOT.NE.'MOYE') GOTO 931
      CALL LIRREE(XXX,1,IRETOU)
      XMOY=XXX
      IF (IERR.NE.0) RETURN
      IMOYE=1
      GOTO 930
 931  CONTINUE
      IF (MOT.NE.'QUAL') GOTO 933
      CALL LIRREE(XXX,1,IRETOU)
      QUAL=XXX
      IF (IERR.NE.0) RETURN
      GOTO 930
 933  CALL REFUS
 932  CONTINUE
      SEGINI SXAUX
      NBNN=3
      IF (KSURF(ILCOUR).EQ.8.OR.KSURF(ILCOUR).EQ.10) NBNN=4
      NBELEM=X(/2)*2
C CORRECTION POUR LE CAS DE FABRICATION DE TRI6
      IF (MAI(1).NE.0) NBELEM=NBELEM/4+1
      NCTIN=MAI(1)+1
      NBSOUS=0
      NBREF=0
      SEGINI MELEME
      MAXPTS=X(/2)
      IRECHA=0
      CALL TRANSF(NFI(1),NFMAX,MAI(1),MAIMAX,ITOUR,X(1,1),MAXPTS,
     #  NUM(1,1),NBNN,NBELEM,NUMELG,NUMNP,XAUX(1,1),NUMINI,ICLE,
     # QUAL,INAT(1),IREGU,IMOYE,XMOY,NBNN,IRECHA,ichp)
      IF(IRECHA.NE.0) THEN
         CALL ERREUR(IRECHA)
         IF (IRECHA.EQ.27.AND.IOLEC.NE.5) IERR=2
         RETURN
      ENDIF
      SEGSUP FER,SXAUX
      IF (ICLE.EQ.0) RETURN
      CALL PRAMEL(XPROJ,MELEME,NUMELG,NUMNP,NUMINI,ICLE,QUAL,NCTIN,NBNN)
      RETURN
      END