43
44
45
46 USE intbufdef_mod
47
48
49
50#include "implicit_f.inc"
51
52
53
54 INTEGER IPARI(*), WEIGHT(*)
55
57 . x(*), v(*), a(*),
58 . ms(*),in(*),ar(*),vr(*)
59
60 TYPE(INTBUF_STRUCT_) INTBUF_TAB
61
62
63
64#include "com01_c.inc"
65
66
67
68 INTEGER NSN,NMN,NRTS,NRTM,ILEV,IDEL2
69
70 nrts = ipari(3)
71 nrtm = ipari(4)
72 nsn = ipari(5)
73 nmn = ipari(6)
74 ilev = ipari(20)
75 idel2 = ipari(17)
76
77 IF (ilev == 25 .or. ilev == 26) THEN
78 CONTINUE
79 ELSEIF (ilev == 27) THEN
80 CALL i2vit27(intbuf_tab,ipari,weight,nsn ,
81 . x ,v ,a ,vr ,ar ,
82 . ms ,in )
83
84 ELSEIF (ilev == 28) THEN
85 CALL i2vit28(intbuf_tab,ipari,weight,nsn ,
86 . x ,v ,a ,vr ,ar ,
87 . ms ,in )
88
89 ELSEIF (ilev == 1.AND.iroddl /= 0) THEN
90
91
92
94 2 a ,intbuf_tab%IRECTM,
95 3 intbuf_tab%DPARA,intbuf_tab%MSR,intbuf_tab%NSV,intbuf_tab%IRTLM,
96 4 v ,ms ,ar ,vr ,
97 5 x ,weight)
98 ELSEIF(ilev == 2)THEN
99
100
101
103 2 a ,intbuf_tab%IRECTM,
104 3 intbuf_tab%CSTS,intbuf_tab%MSR,intbuf_tab%NSV,intbuf_tab%IRTLM,
105 4 v ,ms ,weight ,intbuf_tab%NMAS)
106
107 IF(iroddl /= 0)THEN
109 2 ar ,intbuf_tab%IRECTM,
110 3 intbuf_tab%CSTS,intbuf_tab%MSR,intbuf_tab%NSV,intbuf_tab%IRTLM,
111 4 vr ,in ,a ,v ,
112 5 x )
113 ENDIF
114
115 ELSEIF(ilev == 4)THEN
116
117
118
120 2 a ,intbuf_tab%IRECTM,
121 3 intbuf_tab%CSTS,intbuf_tab%MSR,intbuf_tab%NSV,intbuf_tab%IRTLM,
122 4 v ,ms ,weight ,intbuf_tab%NMAS)
123
124 ELSEIF (ilev >= 10 .AND. ilev < 23) THEN
125
126
128 1 nsn ,nmn ,ms ,v ,a ,
129 2 ar ,vr ,x ,intbuf_tab%IRECTM,intbuf_tab%NSV,
130 3 intbuf_tab%MSR,intbuf_tab%IRTLM,intbuf_tab%CSTS,intbuf_tab%IRUPT,weight )
131 IF(iroddl /= 0) THEN
133 1 nsn ,nmn ,ms ,v ,a ,
134 2 ar ,vr ,x ,intbuf_tab%IRECTM,intbuf_tab%NSV
135 3 intbuf_tab%MSR,intbuf_tab%IRTLM,intbuf_tab%CSTS,intbuf_tab%IRUPT,weight )
136 ENDIF
137 ELSEIF (ilev == 30 .AND. iroddl /= 0) THEN
138
140 1 nsn ,nmn ,ms ,v ,a ,
141 2 ar ,vr ,x ,intbuf_tab%IRECTM,intbuf_tab%NSV,
142 3 intbuf_tab%MSR,intbuf_tab%IRTLM,intbuf_tab%CSTS,weight )
143
144 ELSEIF(ilev == 0.OR.iroddl == 0)THEN
145
146
148 2 a ,intbuf_tab%IRECTM,
149 3 intbuf_tab%CSTS,intbuf_tab%MSR,intbuf_tab%NSV,intbuf_tab%IRTLM,
150 4 v ,ms ,weight ,intbuf_tab%NMAS)
151
152 IF(iroddl /= 0)THEN
154 2 ar ,intbuf_tab%IRECTM,
155 3 intbuf_tab%CSTS,intbuf_tab%MSR,intbuf_tab%NSV,intbuf_tab%IRTLM,
156 4 vr ,in ,a ,v ,
157 5 x )
158 ENDIF
159 ENDIF
160
161 RETURN
subroutine i2curvv(nsn, nmn, ms, v, a, ar, vr, x, irect, nsv, msr, irtl, crst, weight)
subroutine i2vit10(nsn, nmn, ms, v, a, ar, vr, x, irect, nsv, msr, irtl, crst, irupt, weight)
subroutine i2rot10(nsn, nmn, ms, v, a, ar, vr, x, irect, nsv, msr, irtl, crst, irupt, weight)
subroutine i2vit27(intbuf_tab, ipari, weight, nsn, x, v, a, vr, ar, ms, in)
subroutine i2vit28(intbuf_tab, ipari, weight, nsn, x, v, a, vr, ar, ms, in)
subroutine i2vit3(nsn, nmn, a, irect, crst, msr, nsv, irtl, v, ms, weight, mmass)
subroutine i2virot3(nsn, nmn, a, irect, dpara, msr, nsv, irtl, v, ms, ar, vr, x, weight)
subroutine i2vit3n(nsn, nmn, a, irect, crst, msr, nsv, irtl, v, ms, weight, mmass)
subroutine i2rot3(nsn, nmn, ar, irect, crst, msr, nsv, irtl, vr, in, a, v, x)
1.15.0