39
40
41
42 USE intbufdef_mod
43
44
45
46#include "implicit_f.inc"
47
48
49
50#include "param_c.inc"
51
52
53
54 INTEGER IPARI(*), ISKEW(*), LCOD(*), ITAB(*)
55 my_real x(*), v(*), a(*), skew(*), fn(*), msmn(*),ft(*), msmt(*), ms(*), fsav(nthvki,*)
56 TYPE(INTBUF_STRUCT_) INTBUF_TAB
57
58
59
60 INTEGER NG, IGIMP, NGROUS
61 INTEGER :: NMN,NSN
62 my_real startt, fric, gap, stopt
63
64
65
66 nmn =ipari(6)
67 IF(nmn == 0)RETURN
68
69
70
71 nsn =ipari(5)
72 nmn =ipari(6)
73 fric =intbuf_tab%VARIABLES(1)
74 gap =intbuf_tab%VARIABLES(2)
75
76
77
78 CALL invoi2(x ,intbuf_tab%IRECTM,intbuf_tab%LMSR,intbuf_tab%MSR,
79 . intbuf_tab%NSV,
80 1 intbuf_tab%ILOCS,intbuf_tab%IRTLM,intbuf_tab%NSEGM,nsn )
81 CALL i9imp2(x ,v ,a ,intbuf_tab%IRECTM,intbuf_tab%MSR,
82 1 intbuf_tab%NSV,intbuf_tab%ILOCS,intbuf_tab%IRTLM,nsn ,
83 . intbuf_tab%CSTS,
84 2 intbuf_tab%VARIABLES(1),intbuf_tab%N)
85
86
87
89 1 (x ,skew ,a ,fn ,ft ,
90 2 intbuf_tab%IRECTM,intbuf_tab%LMSR,intbuf_tab%CSTS,intbuf_tab%MSR,
91 . intbuf_tab%NSV,
92 3 intbuf_tab%ILOCS,intbuf_tab%IRTLM,ms ,intbuf_tab%N,lcod ,
93 4 iskew ,fric ,msmn ,msmt, nmn, nsn )
94
95
96
98 1 (x ,skew ,a ,fn ,ft ,
99 2 intbuf_tab%IRECTM,intbuf_tab%LMSR,intbuf_tab%CSTS,intbuf_tab%MSR,
100 . intbuf_tab%NSV
101 3 intbuf_tab%ILOCS,intbuf_tab%IRTLM,lcod ,v ,iskew ,
102 4 intbuf_tab%N,ms ,intbuf_tab%VARIABLES(1),msmn ,msmt ,
103 5 intbuf_tab%STFNS,itab ,fsav, nmn, nsn )
104
105 RETURN
subroutine i9avel(x, skew, a, fn, ft, irect, lmsr, crst, msr, nsv, iloc, irtl, lcode, v, iskew, nor, ms, frigap, msmn, msmt, efric, itab, fsav, nmn, nsn)
subroutine i9frms(x, skew, a, fn, ft, irect, lmsr, crst, msr, nsv, iloc, irtl, ms, nor, lcode, iskew, fric, msmn, msmt, nmn, nsn)
subroutine i9imp2(x, v, a, irect, msr, nsv, iloc, irtl, nsn, cst, frigap, nor)
subroutine invoi2(x, irect, lmsr, msr, nsv, iloc, irtl, nseg, nsn, nrt)
1.15.0