| 1 | C Pure tangent mode:
|
|---|
| 2 |
|
|---|
| 3 | SUBROUTINE PUSHREAL8_D(V,VD)
|
|---|
| 4 | REAL*8 V,VD
|
|---|
| 5 | call PUSHREAL8(V)
|
|---|
| 6 | call PUSHREAL8(VD)
|
|---|
| 7 | END
|
|---|
| 8 |
|
|---|
| 9 | SUBROUTINE POPREAL8_D(V,VD)
|
|---|
| 10 | REAL*8 V,VD
|
|---|
| 11 | call POPREAL8(VD)
|
|---|
| 12 | call POPREAL8(V)
|
|---|
| 13 | END
|
|---|
| 14 |
|
|---|
| 15 | SUBROUTINE PUSHREAL8ARRAY_D(V,VD,size)
|
|---|
| 16 | INTEGER size
|
|---|
| 17 | REAL*8 V(size),VD(size)
|
|---|
| 18 | call PUSHREAL8ARRAY(V,size)
|
|---|
| 19 | call PUSHREAL8ARRAY(VD,size)
|
|---|
| 20 | END
|
|---|
| 21 |
|
|---|
| 22 | SUBROUTINE POPREAL8ARRAY_D(V,VD,size)
|
|---|
| 23 | INTEGER size
|
|---|
| 24 | REAL*8 V(size),VD(size)
|
|---|
| 25 | call POPREAL8ARRAY(VD,size)
|
|---|
| 26 | call POPREAL8ARRAY(V,size)
|
|---|
| 27 | END
|
|---|
| 28 |
|
|---|
| 29 | C Multi-directional mode:
|
|---|
| 30 |
|
|---|
| 31 | SUBROUTINE PUSHREAL8_DV(V,VD,nbdirs)
|
|---|
| 32 | INTEGER nbdirs
|
|---|
| 33 | REAL*8 V,VD(nbdirs)
|
|---|
| 34 | call PUSHREAL8(V)
|
|---|
| 35 | call PUSHREAL8ARRAY(VD,nbdirs)
|
|---|
| 36 | END
|
|---|
| 37 |
|
|---|
| 38 | SUBROUTINE POPREAL8_DV(V,VD,nbdirs)
|
|---|
| 39 | INTEGER nbdirs
|
|---|
| 40 | REAL*8 V,VD(nbdirs)
|
|---|
| 41 | call POPREAL8ARRAY(VD,nbdirs)
|
|---|
| 42 | call POPREAL8(V)
|
|---|
| 43 | END
|
|---|
| 44 |
|
|---|
| 45 | SUBROUTINE PUSHREAL8ARRAY_DV(V,VD,size,nbdirs)
|
|---|
| 46 | INTEGER size,nbdirs
|
|---|
| 47 | REAL*8 V(size),VD(size,nbdirs)
|
|---|
| 48 | call PUSHREAL8ARRAY(V,size)
|
|---|
| 49 | call PUSHREAL8ARRAY(VD,size*nbdirs)
|
|---|
| 50 | END
|
|---|
| 51 |
|
|---|
| 52 | SUBROUTINE POPREAL8ARRAY_DV(V,VD,size,nbdirs)
|
|---|
| 53 | INTEGER size,nbdirs
|
|---|
| 54 | REAL*8 V(size),VD(size,nbdirs)
|
|---|
| 55 | call POPREAL8ARRAY(VD,size*nbdirs)
|
|---|
| 56 | call POPREAL8ARRAY(V,size)
|
|---|
| 57 | END
|
|---|
