Commit cb098672 authored by François Trigaux's avatar François Trigaux
Browse files

🐧 adapted char for iso_c_binding on linux

parent bd4a08c6
......@@ -53,7 +53,7 @@ SUBROUTINE fortran_analysis(nkp,nelem,ndof_el,nmemb,ncond_pt,nmate, nframe,ndis
INTEGER(KIND=C_INT),INTENT(INOUT):: nev ! upon return, nev is the number of converged eigen values might be the original nev given by the user in the inputs or nev+1 due to complex conjugate pairs
TYPE(C_PTR),INTENT(OUT)::eigen_val,eigen_vec_pt,eigen_vec_mb
CHARACTER(*),INTENT(OUT) ::error(:) ! error message
CHARACTER,INTENT(OUT) ::error ! error message
INTEGER(KIND=C_INT),INTENT(IN), VALUE :: initialize
CHARACTER(300) :: f_error=''
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment