Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

fix intents and variable types in interfaces #424

Merged
merged 3 commits into from
Jan 29, 2024
Merged

Conversation

rwirth
Copy link
Contributor

@rwirth rwirth commented Dec 8, 2023

Fix a few intents, array-ness, and type of arguments in the nf and nf90 interfaces.

Fixes #417

@CLAassistant
Copy link

CLAassistant commented Dec 8, 2023

CLA assistant check
All committers have signed the CLA.

@skosukhin
Copy link
Contributor

It might make sense to fix fortran/nf_nc4.F90 as well:

diff --git a/fortran/nf_nc4.F90 b/fortran/nf_nc4.F90
index 30ea9ee..a1b58f2 100755
--- a/fortran/nf_nc4.F90
+++ b/fortran/nf_nc4.F90
@@ -566,11 +566,11 @@
 
  Implicit NONE
 
- Integer,          Intent(IN)    :: ncid, xtype, field_typeid, offset, ndims
- Character(LEN=*), Intent(IN)    :: name
- Integer,          Intent(INOUT) :: dim_sizes(*)
+ Integer,          Intent(IN) :: ncid, xtype, field_typeid, offset, ndims
+ Character(LEN=*), Intent(IN) :: name
+ Integer,          Intent(IN) :: dim_sizes(*)
 
- Integer                         :: status
+ Integer                      :: status
 
  Integer(C_INT)               :: cncid, cxtype, ctypeid, cndims, cstatus
  Integer(C_SIZE_T)            :: coffset
@@ -1370,10 +1370,10 @@
 
  Implicit NONE
 
- Integer, Intent(IN)    :: ncid, varid, contiguous
- Integer, Intent(INOUT) :: chunksizes(*)
+ Integer, Intent(IN) :: ncid, varid, contiguous
+ Integer, Intent(IN) :: chunksizes(*)
 
- Integer                :: status
+ Integer             :: status
 
  Integer(C_INT) :: cncid, cvarid, ccontiguous, cstat1, cstatus, &
                    cndims

@RobertPincus
Copy link

@WardF Any possibility of merging this PR? I collaborate with the group in which @rwirth and @skosukhin work and am happy for the support of the very strict NAG compiler. (It's also possible that these errors descend from my initial Fortran 90 interface for netCDF written in the late 1990s).

@WardF
Copy link
Member

WardF commented Jan 27, 2024

Thanks for the ping; I've been focused on the C PR backlog. Running tests now and will get merged.

@WardF WardF merged commit c96bb4b into Unidata:main Jan 29, 2024
21 checks passed
@rwirth rwirth deleted the issue_417 branch January 31, 2024 20:17
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
Labels
None yet
Projects
None yet
Development

Successfully merging this pull request may close these issues.

argument TKR mismatches between nf90_ usage and nf_ interface
5 participants