! Create the netCDF file. call check(nf90_create(FILE_NAME, nf90_netcdf4, ncid)) ! Define dimensions. call check(nf90_def_dim(ncid, "d1", DLEN, dimid1)) call check(nf90_def_dim(ncid, "d2", DLEN, dimid2)) call check(nf90_def_dim(ncid, "d3", DLEN, dimid3)) call check(nf90_def_dim(ncid, "d4", DLEN, dimid4)) call check(nf90_def_dim(ncid, "d5", DLEN, dimid5)) call check(nf90_def_dim(ncid, "d6", DLEN, dimid6)) call check(nf90_def_dim(ncid, "d7", DLEN, dimid7)) ! Create some int64 variables, from 1 to 7D. dimids1(1) = dimid1 call check(nf90_def_var(ncid, "v1", nf90_int64, dimids1, varid1)) dimids2(1) = dimid1 dimids2(2) = dimid2 call check(nf90_def_var(ncid, "v2", nf90_int64, dimids2, varid2)) dimids3(1) = dimid1 dimids3(2) = dimid2 dimids3(3) = dimid3 call check(nf90_def_var(ncid, "v3", nf90_int64, dimids3, varid3)) dimids4(1) = dimid1 dimids4(2) = dimid2 dimids4(3) = dimid3 dimids4(4) = dimid4 call check(nf90_def_var(ncid, "v4", nf90_int64, dimids4, varid4)) dimids5(1) = dimid1 dimids5(2) = dimid2 dimids5(3) = dimid3 dimids5(4) = dimid4 dimids5(5) = dimid5 call check(nf90_def_var(ncid, "v5", nf90_int64, dimids5, varid5)) dimids6(1) = dimid1 dimids6(2) = dimid2 dimids6(3) = dimid3 dimids6(4) = dimid4 dimids6(5) = dimid5 dimids6(6) = dimid6 call check(nf90_def_var(ncid, "v6", nf90_int64, dimids6, varid6)) dimids7(1) = dimid1 dimids7(2) = dimid2 dimids7(3) = dimid3 dimids7(4) = dimid4 dimids7(5) = dimid5 dimids7(6) = dimid6 dimids7(7) = dimid7 call check(nf90_def_var(ncid, "v7", nf90_int64, dimids7, varid7)) ! Write some large integers. call check(nf90_put_var(ncid, varid1, data1_out)) call check(nf90_put_var(ncid, varid2, data2_out)) call check(nf90_put_var(ncid, varid3, data3_out)) call check(nf90_put_var(ncid, varid4, data4_out)) call check(nf90_put_var(ncid, varid5, data5_out)) call check(nf90_put_var(ncid, varid6, data6_out)) call check(nf90_put_var(ncid, varid7, data7_out)) ! Close the file. call check(nf90_close(ncid))