58 |
integer bi,bj |
integer bi,bj |
59 |
ce |
ce |
60 |
|
|
61 |
|
#if defined(ALLOW_AUTODIFF) || defined(ALLOW_FLT) |
62 |
|
|
63 |
C Functions |
C Functions |
64 |
integer ILNBLNK |
integer ILNBLNK |
65 |
integer MDS_RECLEN |
integer MDS_RECLEN |
345 |
endif |
endif |
346 |
#endif /* ALLOW_USE_MPI */ |
#endif /* ALLOW_USE_MPI */ |
347 |
|
|
348 |
|
#endif /* defined(ALLOW_AUTODIFF) || defined(ALLOW_FLT) */ |
349 |
|
|
350 |
C ------------------------------------------------------------------ |
C ------------------------------------------------------------------ |
351 |
return |
return |
352 |
end |
end |