Last change
on this file since 5303 was
4918,
checked in by Laurent Fairhead, 8 months ago
|
Reintegrated NetCDF95 in LMDZ so that it is compiled and made available by the makelmdz_fcm script.
The makelmdz_fcm creates the libnetcdf95 library and copies it in the tools/netcdf/lib directory, copying
the mod files in the tools/netcdf/include library.
|
File size:
487 bytes
|
Rev | Line | |
---|
[4918] | 1 | program test_c_char |
---|
| 2 | |
---|
| 3 | ! We assume (and do not check) that the C character kind is the same |
---|
| 4 | ! as the default character kind in nf95_inq_grpname, |
---|
| 5 | ! nf95_inq_grpname_full and nf95_inq_grp_full_ncid. |
---|
| 6 | |
---|
| 7 | use, intrinsic:: ISO_C_BINDING |
---|
| 8 | |
---|
| 9 | implicit none |
---|
| 10 | |
---|
| 11 | !------------------------------------------------------------------------ |
---|
| 12 | |
---|
| 13 | if (kind("a") /= c_char) then |
---|
| 14 | print *, "Bad assumption: default character kind is not C character kind" |
---|
| 15 | stop 1 |
---|
| 16 | end if |
---|
| 17 | |
---|
| 18 | end program test_c_char |
---|
Note: See
TracBrowser
for help on using the repository browser.