46
47
48
50
51
52
53#include "implicit_f.inc"
54
55
56
57 INTEGER NSN,NMN,NOINT,NELTST,ITYPTST,IDEL2,PENFLAG,IROT
58 INTEGER IRECTM(4,*),NSV(*),MSR(*),IRTLM(*),WEIGHT(*),
59 . NODNX_SMS(*),IPENA(*),MSEGTYP2(*)
61 . visc,dt2t
63 . x(3,*),v(3,*),a(3,*),vr(3,*),ar(3,*),ms(*),in(*),fini(6,4,*),
64 . dl(3,4,*),dr(3,4,*),stifn(*),stifr(*),stfn_pen(*),stfr_pen(*),
65 . fsav(*),fncont(3,*),dmint2(4,*),sav_for_pena(8,*),ms_pena(*),
66 . csts(2,*),smas(*),mmas(*),siner(*),adi(*),skew(9,*),csts_bis(2,*),
67 . t2fac_sms(*),fncontp(3,*) ,ftcontp(3,*)
69 . sav_iner_poff(*),dpara(7,*)
70 TYPE (H3D_DATABASE) :: H3D_DATA
71
72
73
74#include "com01_c.inc"
75
76
77
78 INTEGER I,NI,NINDXC,NINDXP
79 INTEGER
80
81 indxc(1:nsn) = 0
82 indxp(1:nsn) = 0
83 nindxc = 0
84 nindxp = 0
85
86 DO i=1,nsn
87 IF (ipena(i) == 0) THEN
88 nindxc = nindxc + 1
89 indxc(i) = i
90 ELSE
91 nindxp = nindxp + 1
92 indxp(i) = i
93 ENDIF
94 ENDDO
95
96 IF (nindxc > 0) THEN
98 1 nsn ,nmn ,a ,irectm ,csts ,
99 2 msr ,nsv ,irtlm ,ms ,weight ,
100 3 stifn ,mmas ,idel2 ,smas ,x ,
101 4 v ,fsav ,fncont ,indxc ,h3d_data ,
102 5 in ,siner ,dpara ,msegtyp2 ,ar,stifr ,
103 6 csts_bis ,t2fac_sms ,fncontp ,ftcontp )
104
105 IF (iroddl /= 0) THEN
107 1 nsn ,nmn ,ar ,irectm ,csts ,
108 2 msr ,nsv ,irtlm ,in ,ms ,
109 3 a ,x ,weight ,stifr ,stifn ,
110 4 idel2 ,smas ,siner ,mmas ,adi
111 5 indxc ,sav_iner_poff,h3d_data ,msegtyp2 ,csts_bis)
112 ENDIF
113 ENDIF
114
115 IF (nindxp > 0) THEN
117 . x ,v ,vr ,a ,ar ,
118 . ms_pena ,in ,stifn ,stifr ,weight ,
119 . nsv ,irtlm ,csts ,skew ,dl ,
120 . dr ,fini ,fsav ,fncont ,nsn ,
121 . stfn_pen ,stfr_pen ,visc ,penflag ,irot ,
122 . noint ,nodnx_sms ,dmint2 ,sav_for_pena,irectm ,
123 . dt2t ,neltst ,ityptst ,indxp ,sav_iner_poff,
124 . h3d_data ,msegtyp2 ,fncontp ,ftcontp )
125
126 ENDIF
127
128 RETURN
subroutine i2for27_cin(nsn, nmn, a, irect, crst, msr, nsv, irtl, ms, weight, stifn, mmass, idel2, smass, x, v, fsav, fncont, indxc, h3d_data, in, siner, dpara, msegtyp2, ar, stifr, csts_bis, t2fac_sms, fncontp, ftcontp)
subroutine i2for27_pen(x, v, vr, a, ar, ms_pena, in, stifn, stifr, weight, nsv, irtl, crst, skew, dx, dr, fini, fsav, fncont, nsn, stfn, stfr, visc, penflag, irotb, noint, nodnx_sms, dmint2, sav_for_pena, irect, dt2t, neltst, ityptst, indxp, sav_iner_poff, h3d_data, msegtyp2, fncontp, ftcontp)
subroutine i2mom27_cin(nsn, nmn, ar, irect, crst, msr, nsv, irtl, in, ms, a, x, weight, stifr, stifn, idel2, smass, siner, nmas, adi, indxc, miner, h3d_data, msegtyp2, csts_bis)
1.15.0