TAP_support/ADFirstAidKit/PUSHPOPDiff.f

b4daa24319 Shre*0001 C Pure tangent mode:
                0002
                0003       SUBROUTINE PUSHREAL8_D(V,VD)
                0004       REAL*8 V,VD
                0005       call PUSHREAL8(V)
                0006       call PUSHREAL8(VD)
                0007       END
                0008
                0009       SUBROUTINE POPREAL8_D(V,VD)
                0010       REAL*8 V,VD
                0011       call POPREAL8(VD)
                0012       call POPREAL8(V)
                0013       END
                0014
                0015       SUBROUTINE PUSHREAL8ARRAY_D(V,VD,size)
                0016       INTEGER size
                0017       REAL*8 V(size),VD(size)
                0018       call PUSHREAL8ARRAY(V,size)
                0019       call PUSHREAL8ARRAY(VD,size)
                0020       END
                0021
                0022       SUBROUTINE POPREAL8ARRAY_D(V,VD,size)
                0023       INTEGER size
                0024       REAL*8 V(size),VD(size)
                0025       call POPREAL8ARRAY(VD,size)
                0026       call POPREAL8ARRAY(V,size)
                0027       END
                0028
                0029 C Multi-directional mode:
                0030
                0031       SUBROUTINE PUSHREAL8_DV(V,VD,nbdirs)
                0032       INTEGER nbdirs
                0033       REAL*8 V,VD(nbdirs)
                0034       call PUSHREAL8(V)
                0035       call PUSHREAL8ARRAY(VD,nbdirs)
                0036       END
                0037
                0038       SUBROUTINE POPREAL8_DV(V,VD,nbdirs)
                0039       INTEGER nbdirs
                0040       REAL*8 V,VD(nbdirs)
                0041       call POPREAL8ARRAY(VD,nbdirs)
                0042       call POPREAL8(V)
                0043       END
                0044
                0045       SUBROUTINE PUSHREAL8ARRAY_DV(V,VD,size,nbdirs)
                0046       INTEGER size,nbdirs
                0047       REAL*8 V(size),VD(size,nbdirs)
                0048       call PUSHREAL8ARRAY(V,size)
                0049       call PUSHREAL8ARRAY(VD,size*nbdirs)
                0050       END
                0051
                0052       SUBROUTINE POPREAL8ARRAY_DV(V,VD,size,nbdirs)
                0053       INTEGER size,nbdirs
                0054       REAL*8 V(size),VD(size,nbdirs)
                0055       call POPREAL8ARRAY(VD,size*nbdirs)
                0056       call POPREAL8ARRAY(V,size)
                0057       END