TAP_support/ADFirstAidKit/fortranSupport.F

b4daa24319 Shre*0001 C The following to set the AMPI_FORTRANCOMPATIBLE
                0002 C  if it was placed in the configure command.
                0003 #include "ampi/userIF/libConfig.h"
                0004
                0005 #ifdef AMPI_FORTRANCOMPATIBLE
                0006       subroutine ADTOOL_AMPI_fortranSetupTypes(adouble, areal)
                0007 #include "ampi/ampif.h"
                0008         INTEGER adouble
                0009         INTEGER areal
                0010 C for now just set this to be scalars of the matching type
                0011         AMPI_ADOUBLE_PRECISION=MPI_DOUBLE_PRECISION
                0012         adouble=AMPI_ADOUBLE_PRECISION
                0013         AMPI_AREAL=MPI_REAL
                0014         areal=AMPI_AREAL
                0015       end subroutine
                0016
                0017       subroutine ADTOOL_AMPI_fortranCleanupTypes(adouble, areal)
                0018 #include "ampi/ampif.h"
                0019         INTEGER adouble
                0020         INTEGER areal
                0021 C for now do nothing
                0022       end subroutine
                0023
                0024       subroutine ADTOOL_AMPI_fortranSetupBindings()
                0025 #include "ampi/ampif.h"
                0026       call ADTOOL_AMPI_sendfortranbindings(
                0027      +     MPI_BOTTOM, MPI_IN_PLACE,
                0028      +     MPI_STATUS_IGNORE, MPI_STATUSES_IGNORE,
                0029      +     MPI_ERRCODES_IGNORE, MPI_ARGV_NULL, MPI_ARGVS_NULL)
                0030       end subroutine
                0031 #endif