H A D | testa_init.f90 | 14 subroutine init_7d_i4(a,b,alb,aub,blb,bub,aoff,boff) argument 17 integer alb(7),aub(7),blb(7),bub(7) local 58 subroutine init_7d_i8(a,b,alb,aub,blb,bub,aoff,boff) argument 61 integer alb(7),aub(7),blb(7),bub(7) local 102 subroutine init_7d_r4(a,b,alb,aub,blb,bub,aoff,boff) argument 105 integer alb(7),aub(7),blb(7),bub(7) local 146 subroutine init_7d_r8(a,b,alb,aub,blb,bub,aoff,boff) argument 149 integer alb(7),aub(7),blb(7),bub(7) local 190 subroutine init_7d_c4(a,b,alb,aub,blb,bub,aoff,boff) argument 193 integer alb(7),aub(7),blb(7),bub(7) local [all …]
|