| /dports/french/med/med-4.0.0/tests/f/2.3.6/ |
| H A D | test20.f | 38 print *,cret
47 print *,cret
56 print *,cret
65 print *,cret
100 print *,cret
109 print *,cret
127 print *,cret
136 print *,cret
145 print *,cret
154 print *,cret
[all …]
|
| H A D | test2.f | 37 print *,cret
45 print *,cret
53 print *,cret
63 print *,cret
72 print *,cret
86 cret = cret + ret
89 cret = cret + ret
90 print *,cret
101 cret = cret + ret
105 cret = cret + ret
[all …]
|
| H A D | test6.f | 31 integer cret
53 print *,cret
62 print *,cret
72 print *,cret
81 print *,cret
90 print *,cret
99 print *,cret
109 print *,cret
118 print *,cret
127 print *,cret
[all …]
|
| H A D | test27.f | 56 print *,cret
68 print *,cret
79 print *,cret
89 print *,cret
107 print *,cret
123 print *,cret
135 print *,cret
143 print *,cret
154 print *,cret
165 print *,cret
[all …]
|
| H A D | test18.f | 33 integer cret
38 print *,cret
39 if (cret .ne. 0 ) then
46 call efferm (fid,cret)
47 print *,cret
56 print *,cret
65 print *,cret
66 if (cret .eq. 0) then
75 print *,cret
97 print *,cret
[all …]
|
| H A D | test24.f | 44 print *,cret
45 if (cret .ne. 0 ) then
53 print *,cret
70 print *,cret
77 print *,cret
86 print *,cret
96 print *,cret
106 print *,cret
116 print *,cret
126 print *,cret
[all …]
|
| H A D | test7.f90 | 54 print *,cret
61 print *,cret
69 print *,cret
76 print *,cret
97 print *,cret
127 print *,cret
134 print *,cret
147 print *,cret
159 print *,cret
165 print *,cret
[all …]
|
| H A D | test28.f | 32 integer cret,i,j
57 print *,cret
63 print *,cret
76 print *,cret
92 print *,cret
111 print *,cret
119 print *,cret
129 print *,cret
156 print *,cret
166 print *,cret
[all …]
|
| /dports/french/med/med-4.0.0/tests/f/ |
| H A D | test20.f | 39 print *,cret
48 print *,cret
57 print *,cret
66 print *,cret
91 print *,cret
100 print *,cret
122 print *,cret
131 print *,cret
140 print *,cret
149 print *,cret
[all …]
|
| H A D | test2.f | 55 print *,cret
63 print *,cret
73 print *,cret
85 print *,cret
96 print *,cret
97 cret = cret + ret
100 cret = cret + ret
101 print *,cret
111 cret = cret + ret
122 cret = cret + ret
[all …]
|
| H A D | test7.f90 | 31 integer cret, ret variable
60 print *,cret
63 if (cret.eq.0) then
67 if (cret.ne.0) then
71 if (cret.eq.0) then
117 if (cret.ne.0) then
126 if (cret.ne.0) then
131 if (cret.eq.0) then
196 print *,cret
208 print *,cret
[all …]
|
| H A D | test27.f | 55 print *,cret
70 print *,cret
83 print *,cret
93 print *,cret
110 print *,cret
125 print *,cret
139 print *,cret
147 print *,cret
158 print *,cret
170 print *,cret
[all …]
|
| H A D | test6.f | 31 integer cret
60 print *,cret
70 print *,cret
80 print *,cret
89 print *,cret
98 print *,cret
107 print *,cret
117 print *,cret
126 print *,cret
135 print *,cret
[all …]
|
| H A D | test5.f90 | 30 integer cret, ret variable
63 print *,cret
66 if (cret.eq.0) then
69 if (cret.ne.0) then
75 if (cret.eq.0) then
80 if (cret.ne.0) then
109 if (cret.ne.0) then
117 if (cret.ne.0) then
132 if (cret.ne.0) then
162 print *,cret
[all …]
|
| H A D | test24.f | 48 print *,cret
49 if (cret .ne. 0 ) then
57 print *,cret
76 print *,cret
84 print *,cret
94 print *,cret
104 print *,cret
114 print *,cret
124 print *,cret
134 print *,cret
[all …]
|
| /dports/french/med/med-4.0.0/tests/unittests/f/ |
| H A D | Unittest_MEDfile_1.f | 28 integer cret
45 print *,cret
55 print *,cret
64 print *,cret
73 print *,cret
83 print *,cret
91 print *,cret
101 print *,cret
115 print *,cret
124 print *,cret
[all …]
|
| H A D | Unittest_MEDstructElement_9.f | 28 integer cret
89 if (cret .ne. 0 ) then
99 if (cret .ne. 0 ) then
127 if (cret .ne. 0) then
134 if (cret .ne. 0) then
141 if (cret .ne. 0) then
152 if (cret .ne. 0) then
160 if (cret .ne. 0) then
169 if (cret .ne. 0) then
180 if (cret .ne. 0) then
[all …]
|
| /dports/french/med/med-4.0.0/src/2.3.6/fi/ |
| H A D | maaf.f | 49 cret = -1
51 cret = 0
92 cret = -1
94 cret = 0
114 cret = -1
116 cret = 0
152 cret = -1
154 cret = 0
190 cret = -1
192 cret = 0
[all …]
|
| H A D | fichf.f | 40 cret=-1
42 cret=0
55 integer cret
77 cret = -1
79 cret = 0
122 integer cret
138 integer cret
157 integer cret
173 integer cret
197 cret=-1
[all …]
|
| H A D | resf_i.f | 172 cret = -1
174 cret = 0
182 1 n,cret)
197 cret = -1
199 cret = 0
223 cret = -1
225 cret = 0
273 cret = 0
300 cret = 0
337 cret = 0
[all …]
|
| /dports/french/med/med-4.0.0/src/fi/ |
| H A D | medfile.f | 26 integer cret
33 cret = fid
35 cret = 0
54 cret = fid
56 cret = 0
88 integer cret
105 integer cret
109 cret = mfifcow(fid,cmt,len(cmt),cret)
126 cret = mfifcor(fid,cmt,len(cmt),cret)
199 cret=mid
[all …]
|
| H A D | medfield.f | 191 cret = -1
193 cret = 0
213 cret = -1
215 cret = 0
236 cret = -1
238 cret = 0
371 cret = 0
395 cret = 0
423 cret = 0
451 cret = 0
[all …]
|
| H A D | medmesh.f | 53 cret = -1
55 cret = 0
76 cret = -1
78 cret = 0
99 cret = -1
101 cret = 0
156 integer cret
174 integer cret
566 cret = -1
568 cret =0
[all …]
|
| H A D | medstructelement.f | 33 cret = -1
35 cret = 0
49 integer n,cret
55 cret = -1
57 cret = 0
139 cret = -1
141 cret = 0
216 cret = -1
218 cret = 0
402 integer cret
[all …]
|
| /dports/french/med/med-4.0.0/tests/usecases/f/ |
| H A D | UsesCase_MEDmesh_11.f90 | 28 integer cret variable
69 if (cret .ne. 0 ) then
79 if (cret .ne. 0 ) then
97 if (cret .ne. 0 ) then
108 if (cret .ne. 0 ) then
124 if (cret .ne. 0) then
130 print *,cret
140 if (cret .ne. 0) then
155 if (cret .ne. 0) then
206 if (cret .ne. 0) then
[all …]
|