|
Last change
on this file since 5450 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.
