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 :: NMN,NSN
62
63
64
65 nmn =ipari(6)
66 IF(nmn == 0)RETURN
67
68
69
70 nsn =ipari(5)
71 nmn =ipari(6)
72 fric =intbuf_tab%VARIABLES(1)
73 gap =intbuf_tab%VARIABLES(2)
74
75
76
77 CALL invoi2(x ,intbuf_tab%IRECTM,intbuf_tab%LMSR,intbuf_tab%MSR,
78 . intbuf_tab%NSV,
79 1 intbuf_tab%ILOCS,intbuf_tab%IRTLM,intbuf_tab%NSEGM,nsn )
80 CALL i9imp2(x ,v ,a ,intbuf_tab%IRECTM,intbuf_tab%MSR,
81 1 intbuf_tab%NSV,intbuf_tab%ILOCS,intbuf_tab%IRTLM,nsn ,
82 . intbuf_tab%CSTS,
83 2 intbuf_tab%VARIABLES(1),intbuf_tab%N)
84
85
86
88 1 (x ,skew ,a ,fn ,ft ,
89 2 intbuf_tab%IRECTM,intbuf_tab%LMSR,intbuf_tab%CSTS,intbuf_tab%MSR,
90 . intbuf_tab%NSV,
91 3 intbuf_tab%ILOCS,intbuf_tab%IRTLM,ms ,intbuf_tab%N,lcod ,
92 4 iskew ,fric ,msmn ,msmt, nmn, nsn )
93
94
95
97 1 (x ,skew ,a ,fn ,ft ,
98 2 intbuf_tab%IRECTM,intbuf_tab%LMSR,intbuf_tab%CSTS,intbuf_tab%MSR,
99 . intbuf_tab%NSV,
100 3 intbuf_tab%ILOCS,intbuf_tab%IRTLM,lcod ,v ,iskew ,
101 4 intbuf_tab%N,ms ,intbuf_tab%VARIABLES(1),msmn ,msmt ,
102 5 intbuf_tab%STFNS,itab ,fsav, nmn, nsn )
103
104 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