int my_cpp_read( char * fullName) fortran90调用c++函数

要在Fortran90中调用一个C++函数，需要使用C++编译器编译该函数，并将其声明为C函数，以便在Fortran90中使用。以下是一个示例：

首先，在C++代码中声明一个C函数，并包含extern "C"语句：

// my_cpp_func.h
#ifdef __cplusplus
extern "C" {
#endif

int my_cpp_func(int arg1, char* arg2);

#ifdef __cplusplus
}
#endif

然后，在C++代码中实现该函数：

// my_cpp_func.cpp
#include "my_cpp_func.h"

int my_cpp_func(int arg1, char* arg2) {
    // Function implementation
    return 0;
}

接下来，在Fortran90代码中使用ISO_C_BINDING来声明一个C函数，并将其链接到C++函数：

! my_fortran_program.f90
PROGRAM my_fortran_program
    USE ISO_C_BINDING
    IMPLICIT NONE

    INTERFACE
        FUNCTION my_cpp_func(arg1, arg2) BIND(C, NAME="my_cpp_func")
            USE ISO_C_BINDING
            INTEGER(C_INT) :: my_cpp_func
            INTEGER(C_INT), VALUE :: arg1
            TYPE(C_PTR), VALUE :: arg2
        END FUNCTION my_cpp_func
    END INTERFACE

    CHARACTER(LEN=100) :: arg2
    INTEGER :: arg1
    INTEGER :: status

    arg1 = 42
    arg2 = "Hello, world!"

    status = my_cpp_func(arg1, C_LOC(arg2))

END PROGRAM my_fortran_program

在Fortran90中使用C_LOC函数将字符数组传递给C函数。C_LOC函数返回一个指向字符数组的指针，这是一个C_PTR类型，需要在函数声明中使用。