"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "src/tests/test_family_treef.F90" between
CGNS-4.1.2.tar.gz and CGNS-4.2.0.tar.gz

About: The CGNS (CFD General Notation System) provides a standard for recording and recovering computer data associated with the numerical solution of fluid dynamics equations.

test_family_treef.F90  (CGNS-4.1.2):test_family_treef.F90  (CGNS-4.2.0)
program testfamilytreef program testfamilytreef
#ifdef WINNT #ifdef WINNT
include 'cgnswin_f.h' include 'cgnswin_f.h'
#endif #endif
USE CGNS USE CGNS
implicit none implicit none
INTEGER, PARAMETER :: sp = KIND(1.0)
integer, parameter :: NUM_SIDE = 5 integer, parameter :: NUM_SIDE = 5
integer(cgsize_t) :: sizes(9) integer(cgsize_t) :: sizes(9)
integer(cgsize_t) :: ptrange(6) integer(cgsize_t) :: ptrange(6)
integer(cgsize_t) :: npts integer(cgsize_t) :: npts
integer :: celldim, physdim integer :: celldim, physdim
real*4, dimension(NUM_SIDE*NUM_SIDE*NUM_SIDE) :: xcoord real(kind=sp), dimension(NUM_SIDE*NUM_SIDE*NUM_SIDE) :: xcoord
real*4, dimension(NUM_SIDE*NUM_SIDE*NUM_SIDE) :: ycoord real(kind=sp), dimension(NUM_SIDE*NUM_SIDE*NUM_SIDE) :: ycoord
real*4, dimension(NUM_SIDE*NUM_SIDE*NUM_SIDE) :: zcoord real(kind=sp), dimension(NUM_SIDE*NUM_SIDE*NUM_SIDE) :: zcoord
integer :: ierr integer :: ierr
integer :: i, j, k, n, nfam, nb, ng, nnames integer :: i, j, k, n, nfam, nb, ng, nnames
integer :: cgfile, cgbase, cgtree, cgzone, cgfam, cgcoord integer :: cgfile, cgbase, cgtree, cgzone, cgfam, cgcoord
integer :: cgbc, cgsr integer :: cgbc, cgsr
real*4, dimension(5) :: exponents real(kind=sp), dimension(5) :: exponents
character*32 outfile character(len=32) outfile
character*32 name character(len=32) name
character*32 tname character(len=32) tname
character(len=20*33) :: family_name character(len=20*33) :: family_name
character(len=20*33) :: tfamily_name character(len=20*33) :: tfamily_name
! ---- WRITING TESTS ---- ! ---- WRITING TESTS ----
outfile = "family_tree_f90.cgns" outfile = "family_tree_f90.cgns"
call unlink( outfile ) !call unlink( outfile )
! write(*, *) 'Create file' ! write(*, *) 'Create file'
call cg_open_f(outfile, CG_MODE_WRITE, cgfile, ierr) call cg_open_f(outfile, CG_MODE_WRITE, cgfile, ierr)
if (ierr .ne. CG_OK) call cg_error_exit_f if (ierr .ne. CG_OK) call cg_error_exit_f
! write(*, *) 'Create Grid Base' ! write(*, *) 'Create Grid Base'
call cg_base_write_f( cgfile, 'Structured', 3, 3, cgbase, ierr) call cg_base_write_f( cgfile, 'Structured', 3, 3, cgbase, ierr)
if (ierr .ne. CG_OK) call cg_error_exit_f if (ierr .ne. CG_OK) call cg_error_exit_f
call cg_gopath_f( cgfile, '/Structured', ierr) call cg_gopath_f( cgfile, '/Structured', ierr)
if (ierr .ne. CG_OK) call cg_error_exit_f if (ierr .ne. CG_OK) call cg_error_exit_f
call cg_dataclass_write_f( Dimensional, ierr) call cg_dataclass_write_f( Dimensional, ierr)
skipping to change at line 94 skipping to change at line 95
if (ierr .ne. CG_OK) call cg_error_exit_f if (ierr .ne. CG_OK) call cg_error_exit_f
call cg_coord_write_f(cgfile, cgbase, cgzone, RealSingle, & call cg_coord_write_f(cgfile, cgbase, cgzone, RealSingle, &
& "CoordinateY", ycoord, cgcoord, ierr) & "CoordinateY", ycoord, cgcoord, ierr)
if (ierr .ne. CG_OK) call cg_error_exit_f if (ierr .ne. CG_OK) call cg_error_exit_f
call cg_coord_write_f(cgfile, cgbase, cgzone, RealSingle, & call cg_coord_write_f(cgfile, cgbase, cgzone, RealSingle, &
& "CoordinateZ", zcoord, cgcoord, ierr) & "CoordinateZ", zcoord, cgcoord, ierr)
if (ierr .ne. CG_OK) call cg_error_exit_f if (ierr .ne. CG_OK) call cg_error_exit_f
call cg_goto_f(cgfile, cgbase, ierr, "Zone_t", cgzone, & call cg_goto_f(cgfile, cgbase, ierr, "Zone_t", cgzone, &
& "GridCoordinates_t", 1, & & "GridCoordinates_t", 1, &
& "CoordinateX", 0, 'end') & "CoordinateX", 0, 'end')
if (ierr .ne. CG_OK) call cg_error_exit_f
call cg_gopath_f(cgfile, &
& "/Structured/Zone/GridCoordinates/CoordinateX", ierr)
if (ierr .ne. CG_OK) call cg_error_exit_f
call cg_exponents_write_f(RealSingle, exponents, ierr) call cg_exponents_write_f(RealSingle, exponents, ierr)
if (ierr .ne. CG_OK) call cg_error_exit_f if (ierr .ne. CG_OK) call cg_error_exit_f
call cg_gopath_f(cgfile, "../CoordinateY", ierr) call cg_gopath_f(cgfile, "../CoordinateY", ierr)
if (ierr .ne. CG_OK) call cg_error_exit_f if (ierr .ne. CG_OK) call cg_error_exit_f
call cg_exponents_write_f(RealSingle, exponents, ierr) call cg_exponents_write_f(RealSingle, exponents, ierr)
if (ierr .ne. CG_OK) call cg_error_exit_f if (ierr .ne. CG_OK) call cg_error_exit_f
call cg_gopath_f(cgfile, "../CoordinateZ", ierr) call cg_gopath_f(cgfile, "../CoordinateZ", ierr)
if (ierr .ne. CG_OK) call cg_error_exit_f if (ierr .ne. CG_OK) call cg_error_exit_f
call cg_exponents_write_f(RealSingle, exponents, ierr) call cg_exponents_write_f(RealSingle, exponents, ierr)
if (ierr .ne. CG_OK) call cg_error_exit_f if (ierr .ne. CG_OK) call cg_error_exit_f
skipping to change at line 152 skipping to change at line 157
call cg_family_write_f(cgfile, cgtree, & call cg_family_write_f(cgfile, cgtree, &
& "/FamilyTree/Family2", cgfam, ierr) & "/FamilyTree/Family2", cgfam, ierr)
if (ierr .ne. CG_OK) call cg_error_exit_f if (ierr .ne. CG_OK) call cg_error_exit_f
call cg_family_write_f(cgfile, cgtree, "Family3", cgfam, ierr) call cg_family_write_f(cgfile, cgtree, "Family3", cgfam, ierr)
if (ierr .ne. CG_OK) call cg_error_exit_f if (ierr .ne. CG_OK) call cg_error_exit_f
! NODE BASED FAMILY NODE CREATION ! NODE BASED FAMILY NODE CREATION
call cg_goto_f( cgfile, cgtree, ierr, "Family2", 0, 'end') call cg_gopath_f( cgfile, "/FamilyTree/Family2", ierr)
if (ierr .ne. CG_OK) call cg_error_exit_f
call cg_node_family_write_f( "Family2.1", cgfam, ierr) call cg_node_family_write_f( "Family2.1", cgfam, ierr)
if (ierr .ne. CG_OK) call cg_error_exit_f if (ierr .ne. CG_OK) call cg_error_exit_f
call cg_goto_f( cgfile, cgtree, ierr, "Family2", 0, &
& "Family2.1", 0, 'end')
if (ierr .ne. CG_OK) call cg_error_exit_f
call cg_gopath_f(cgfile, & call cg_gopath_f(cgfile, &
& "/FamilyTree/Family1/Family1.2/Family1.2.1", ierr) & "/FamilyTree/Family1/Family1.2/Family1.2.1", ierr)
if (ierr .ne. CG_OK) call cg_error_exit_f
call cg_node_family_write_f( "Family1.2.1.1", cgfam, ierr) call cg_node_family_write_f( "Family1.2.1.1", cgfam, ierr)
if (ierr .ne. CG_OK) call cg_error_exit_f if (ierr .ne. CG_OK) call cg_error_exit_f
call cg_node_family_write_f( "Family1.2.1.2", cgfam, ierr) call cg_node_family_write_f( "Family1.2.1.2", cgfam, ierr)
if (ierr .ne. CG_OK) call cg_error_exit_f if (ierr .ne. CG_OK) call cg_error_exit_f
call cg_node_nfamilies_f( nfam , ierr) call cg_node_nfamilies_f( nfam , ierr)
if (ierr .ne. CG_OK) call cg_error_exit_f if (ierr .ne. CG_OK) call cg_error_exit_f
call cg_goto_f( cgfile, cgtree, ierr, "Family2", 0, & call cg_gopath_f( cgfile, "/FamilyTree/Family2/Family2.1", ierr)
& "Family2.1", 0, 'end') if (ierr .ne. CG_OK) call cg_error_exit_f
call cg_node_family_write_f( "Family2.1.1", cgfam, ierr) call cg_node_family_write_f( "Family2.1.1", cgfam, ierr)
if (ierr .ne. CG_OK) call cg_error_exit_f if (ierr .ne. CG_OK) call cg_error_exit_f
call cg_family_write_f(cgfile, cgtree, "Family4", cgfam, ierr) call cg_family_write_f(cgfile, cgtree, "Family4", cgfam, ierr)
if (ierr .ne. CG_OK) call cg_error_exit_f if (ierr .ne. CG_OK) call cg_error_exit_f
call cg_family_write_f(cgfile, cgtree, & call cg_family_write_f(cgfile, cgtree, &
& "/FamilyTree/Family4/Family4.1", cgfam, ierr) & "/FamilyTree/Family4/Family4.1", cgfam, ierr)
if (ierr .ne. CG_OK) call cg_error_exit_f if (ierr .ne. CG_OK) call cg_error_exit_f
call cg_family_write_f(cgfile, cgtree, & call cg_family_write_f(cgfile, cgtree, &
& "/FamilyTree/Family4/Family4.2/Family4.2.1/Family4.2.1.1", cgfam, ierr) & "/FamilyTree/Family4/Family4.2/Family4.2.1/Family4.2.1.1", cgfam, ierr)
if (ierr .ne. CG_OK) call cg_error_exit_f if (ierr .ne. CG_OK) call cg_error_exit_f
call cg_family_write_f(cgfile, cgtree, & call cg_family_write_f(cgfile, cgtree, &
& "/FamilyTree/Family4/Family4.2/Family4.2.2", cgfam, ierr) & "/FamilyTree/Family4/Family4.2/Family4.2.2", cgfam, ierr)
if (ierr .ne. CG_OK) call cg_error_exit_f if (ierr .ne. CG_OK) call cg_error_exit_f
call cg_family_write_f(cgfile, cgtree, & call cg_family_write_f(cgfile, cgtree, &
& "/FamilyTree/Family4/Family4.3", cgfam, ierr) & "/FamilyTree/Family4/Family4.3", cgfam, ierr)
if (ierr .ne. CG_OK) call cg_error_exit_f if (ierr .ne. CG_OK) call cg_error_exit_f
call cg_goto_f(cgfile, cgtree, ierr, 'end') CALL cg_goto_f(cgfile, cgtree, ierr, 'end')
if (ierr .ne. CG_OK) call cg_error_exit_f
call cg_gopath_f(cgfile, "/FamilyTree", ierr)
if (ierr .ne. CG_OK) call cg_error_exit_f
call cg_node_family_write_f( "FamilyN", cgfam, ierr) call cg_node_family_write_f( "FamilyN", cgfam, ierr)
if (ierr .ne. CG_OK) call cg_error_exit_f if (ierr .ne. CG_OK) call cg_error_exit_f
! FAMILY (TREE) NAME CREATION ! FAMILY (TREE) NAME CREATION
call cg_goto_f(cgfile, cgbase, ierr, "Zone", 0, 'end') call cg_goto_f(cgfile, cgbase, ierr, "Zone", 0, 'end')
if (ierr .ne. CG_OK) call cg_error_exit_f
call cg_gopath_f(cgfile, "/Structured/Zone", ierr)
if (ierr .ne. CG_OK) call cg_error_exit_f
call cg_famname_write_f("/FamilyTree/Family1", ierr) call cg_famname_write_f("/FamilyTree/Family1", ierr)
if (ierr .ne. CG_OK) call cg_error_exit_f if (ierr .ne. CG_OK) call cg_error_exit_f
do j=1,3 do j=1,3
write( name,'(a,i1)') 'ZoneFamily', j write( name,'(a,i1)') 'ZoneFamily', j
write( family_name,'(a,i1)') & write( family_name,'(a,i1)') &
& '/FamilyTree/Family1/Family1.2/Family1.2.1/Family1.2.1.', j & '/FamilyTree/Family1/Family1.2/Family1.2.1/Family1.2.1.', j
call cg_multifam_write_f(name, family_name, ierr) call cg_multifam_write_f(name, family_name, ierr)
if (ierr .ne. CG_OK) call cg_error_exit_f if (ierr .ne. CG_OK) call cg_error_exit_f
enddo enddo
do n=1,3 do n=1,3
ptrange(n) = 1 ptrange(n) = 1
ptrange(n+3) = NUM_SIDE ptrange(n+3) = NUM_SIDE
enddo enddo
ptrange(6) = 1 ptrange(6) = 1
npts = 2 npts = 2
call cg_boco_write_f(cgfile, cgbase, 1, "Inflow", BCInflow, & call cg_boco_write_f(cgfile, cgbase, 1, "Inflow", BCInflow, &
& PointRange, npts, ptrange, cgbc, ierr) & PointRange, npts, ptrange, cgbc, ierr)
if (ierr .ne. CG_OK) call cg_error_exit_f if (ierr .ne. CG_OK) call cg_error_exit_f
call cg_goto_f(cgfile, cgbase, ierr, "Zone", 0, "ZoneBC", 0, & call cg_goto_f(cgfile, cgbase, ierr, "Zone", 0, "ZoneBC", 0, &
& "Inflow", 0,'end') & "Inflow", 0,'end')
if (ierr .ne. CG_OK) call cg_error_exit_f
call cg_gopath_f(cgfile, "/Structured/Zone/ZoneBC/Inflow", ierr)
if (ierr .ne. CG_OK) call cg_error_exit_f
call cg_famname_write_f("/FamilyTree/Family2", ierr) call cg_famname_write_f("/FamilyTree/Family2", ierr)
if (ierr .ne. CG_OK) call cg_error_exit_f if (ierr .ne. CG_OK) call cg_error_exit_f
do j = 1, 3 do j = 1, 3
write( name,'(a,i1)') 'BCFamily', j write( name,'(a,i1)') 'BCFamily', j
write( family_name,'(a,i1)') '/FamilyTree/Family', j write( family_name,'(a,i1)') '/FamilyTree/Family', j
call cg_multifam_write_f(name, family_name, ierr) call cg_multifam_write_f(name, family_name, ierr)
if (ierr .ne. CG_OK) call cg_error_exit_f if (ierr .ne. CG_OK) call cg_error_exit_f
enddo enddo
call cg_subreg_bcname_write_f(cgfile, cgbase, cgzone, "SubRegion", & call cg_subreg_bcname_write_f(cgfile, cgbase, cgzone, "SubRegion", &
& 2, "Inflow", cgsr, ierr) & 2, "Inflow", cgsr, ierr)
if (ierr .ne. CG_OK) call cg_error_exit_f if (ierr .ne. CG_OK) call cg_error_exit_f
call cg_goto_f(cgfile, cgbase, ierr, "Zone", 0, "SubRegion", 0, 'end') call cg_goto_f(cgfile, cgbase, ierr, "Zone", 0, "SubRegion", 0, 'end')
if (ierr .ne. CG_OK) call cg_error_exit_f
call cg_gopath_f(cgfile, "/Structured/Zone/SubRegion", ierr)
if (ierr .ne. CG_OK) call cg_error_exit_f
call cg_famname_write_f("/FamilyTree/Family3", ierr) call cg_famname_write_f("/FamilyTree/Family3", ierr)
if (ierr .ne. CG_OK) call cg_error_exit_f if (ierr .ne. CG_OK) call cg_error_exit_f
do j = 1,3 do j = 1,3
write( name,'(a,i1)') 'SubRegionFamily', j write( name,'(a,i1)') 'SubRegionFamily', j
write( family_name,'(a,i1)') '/FamilyTree/Family', j write( family_name,'(a,i1)') '/FamilyTree/Family', j
call cg_multifam_write_f(name, family_name, ierr) call cg_multifam_write_f(name, family_name, ierr)
if (ierr .ne. CG_OK) call cg_error_exit_f if (ierr .ne. CG_OK) call cg_error_exit_f
enddo enddo
call cg_goto_f(cgfile, cgbase, ierr, "Zone", 0, 'end') call cg_gopath_f(cgfile, "/Structured/Zone", ierr)
if (ierr .ne. CG_OK) call cg_error_exit_f
call cg_user_data_write_f("UserData", ierr) call cg_user_data_write_f("UserData", ierr)
if (ierr .ne. CG_OK) call cg_error_exit_f if (ierr .ne. CG_OK) call cg_error_exit_f
call cg_user_data_write_f("UserData2", ierr) call cg_user_data_write_f("UserData2", ierr)
if (ierr .ne. CG_OK) call cg_error_exit_f if (ierr .ne. CG_OK) call cg_error_exit_f
call cg_goto_f(cgfile, cgbase, ierr, "Zone", 0, "UserData", 0, 'end') call cg_gopath_f(cgfile, "./UserData", ierr)
if (ierr .ne. CG_OK) call cg_error_exit_f
call cg_famname_write_f("/FamilyTree/Family4", ierr) call cg_famname_write_f("/FamilyTree/Family4", ierr)
if (ierr .ne. CG_OK) call cg_error_exit_f if (ierr .ne. CG_OK) call cg_error_exit_f
do j = 1,3 do j = 1,3
write( name,'(a,i1)') 'UserDataFamily', j write( name,'(a,i1)') 'UserDataFamily', j
write( family_name,'(a,i1)') '/FamilyTree/Family', j write( family_name,'(a,i1)') '/FamilyTree/Family', j
call cg_multifam_write_f(name, family_name, ierr) call cg_multifam_write_f(name, family_name, ierr)
if (ierr .ne. CG_OK) call cg_error_exit_f if (ierr .ne. CG_OK) call cg_error_exit_f
enddo enddo
! FAMILY NAMES IN TREE ! FAMILY NAMES IN TREE
call cg_gopath_f( cgfile, "/FamilyTree/Family1/Family1.1", ierr) call cg_gopath_f( cgfile, "/FamilyTree/Family1/Family1.1", ierr)
skipping to change at line 301 skipping to change at line 326
cgbase = n cgbase = n
endif endif
enddo enddo
call cg_nfamilies_f(cgfile, cgtree, nfam, ierr) call cg_nfamilies_f(cgfile, cgtree, nfam, ierr)
if (ierr .ne. CG_OK) call cg_error_exit_f if (ierr .ne. CG_OK) call cg_error_exit_f
if (nfam .ne. 5) stop if (nfam .ne. 5) stop
! FAMILY NODE DELETION ! FAMILY NODE DELETION
call cg_goto_f(cgfile, cgtree, ierr, "Family1", 0, "Family1.2",0, "Family1 call cg_gopath_f(cgfile,"/FamilyTree/Family1/Family1.2/Family1.2.1", ierr)
.2.1",0, 'end') if (ierr .ne. CG_OK) call cg_error_exit_f
call cg_gopath_f(cgfile, "/FamilyTree/Family1/Family1.2/Family1.2.1", ierr ) call cg_gopath_f(cgfile, "/FamilyTree/Family1/Family1.2/Family1.2.1", ierr )
if (ierr .ne. CG_OK) call cg_error_exit_f
call cg_delete_node_f("Family1.2.1.1", ierr) call cg_delete_node_f("Family1.2.1.1", ierr)
if (ierr .ne. CG_OK) call cg_error_exit_f if (ierr .ne. CG_OK) call cg_error_exit_f
call cg_node_nfamilies_f(nfam, ierr) call cg_node_nfamilies_f(nfam, ierr)
if (ierr .ne. CG_OK) call cg_error_exit_f if (ierr .ne. CG_OK) call cg_error_exit_f
if (nfam .ne. 1) stop if (nfam .ne. 1) stop
call cg_gopath_f(cgfile, "/FamilyTree/Family4", ierr) call cg_gopath_f(cgfile, "/FamilyTree/Family4", ierr)
if (ierr .ne. CG_OK) call cg_error_exit_f
call cg_delete_node_f("Family4.2", ierr) call cg_delete_node_f("Family4.2", ierr)
if (ierr .ne. CG_OK) call cg_error_exit_f if (ierr .ne. CG_OK) call cg_error_exit_f
call cg_node_nfamilies_f(nfam, ierr) call cg_node_nfamilies_f(nfam, ierr)
if (ierr .ne. CG_OK) call cg_error_exit_f if (ierr .ne. CG_OK) call cg_error_exit_f
if (nfam .ne. 2) stop if (nfam .ne. 2) stop
! FAMILY NODE OVERWRITING ! FAMILY NODE OVERWRITING
call cg_gopath_f( cgfile, "/FamilyTree/Family1/Family1.2/Family1.2.1", ier r) call cg_gopath_f( cgfile, "/FamilyTree/Family1/Family1.2/Family1.2.1", ier r)
if (ierr .ne. CG_OK) call cg_error_exit_f
call cg_node_family_write_f( "Family1.2.1.2", cgfam, ierr) call cg_node_family_write_f( "Family1.2.1.2", cgfam, ierr)
if (ierr .ne. CG_OK) call cg_error_exit_f if (ierr .ne. CG_OK) call cg_error_exit_f
call cg_node_nfamilies_f(nfam, ierr) call cg_node_nfamilies_f(nfam, ierr)
if (ierr .ne. CG_OK) call cg_error_exit_f if (ierr .ne. CG_OK) call cg_error_exit_f
if (nfam .ne. 1) stop if (nfam .ne. 1) stop
call cg_gopath_f( cgfile, "/FamilyTree/Family1/Family1.1", ierr) call cg_gopath_f( cgfile, "/FamilyTree/Family1/Family1.1", ierr)
if (ierr .ne. CG_OK) call cg_error_exit_f
call cg_node_nfamilies_f( nfam, ierr) call cg_node_nfamilies_f( nfam, ierr)
if (ierr .ne. CG_OK) call cg_error_exit_f if (ierr .ne. CG_OK) call cg_error_exit_f
if (nfam .ne. 1) stop if (nfam .ne. 1) stop
call cg_node_family_read_f( nfam, family_name, nb, ng, ierr) call cg_node_family_read_f( nfam, family_name, nb, ng, ierr)
if (ierr .ne. CG_OK) call cg_error_exit_f if (ierr .ne. CG_OK) call cg_error_exit_f
if (family_name .ne. "Family1.1.1") stop if (family_name .ne. "Family1.1.1") stop
if (nb .ne. 0) stop if (nb .ne. 0) stop
if (ng .ne. 0) stop if (ng .ne. 0) stop
skipping to change at line 373 skipping to change at line 403
do n=1, nnames do n=1, nnames
call cg_node_family_name_read_f( n, name, family_name, ierr) call cg_node_family_name_read_f( n, name, family_name, ierr)
if (ierr .ne. CG_OK) call cg_error_exit_f if (ierr .ne. CG_OK) call cg_error_exit_f
write( tname,'(a,i1)') 'FamilyN1.1-', n write( tname,'(a,i1)') 'FamilyN1.1-', n
write( tfamily_name,'(a, i1, a)') '/FamilyTree/Family2/Family', n, '.1' write( tfamily_name,'(a, i1, a)') '/FamilyTree/Family2/Family', n, '.1'
if (tname .ne. name) stop if (tname .ne. name) stop
if (tfamily_name .ne. family_name) stop if (tfamily_name .ne. family_name) stop
enddo enddo
call cg_gopath_f( cgfile, "/Structured/Zone/UserData", ierr) call cg_gopath_f( cgfile, "/Structured/Zone/UserData", ierr)
if (ierr .ne. CG_OK) call cg_error_exit_f
call cg_nmultifam_f( nnames, ierr) call cg_nmultifam_f( nnames, ierr)
if (ierr .ne. CG_OK) call cg_error_exit_f if (ierr .ne. CG_OK) call cg_error_exit_f
call cg_famname_read_f( family_name, ierr) call cg_famname_read_f( family_name, ierr)
if (ierr .ne. CG_OK) call cg_error_exit_f if (ierr .ne. CG_OK) call cg_error_exit_f
call cg_gopath_f(cgfile, "/Structured/Zone/UserData2", ierr) call cg_gopath_f(cgfile, "/Structured/Zone/UserData2", ierr)
if (ierr .ne. CG_OK) call cg_error_exit_f
call cg_nmultifam_f( nnames, ierr) call cg_nmultifam_f( nnames, ierr)
if (ierr .ne. CG_OK) call cg_error_exit_f if (ierr .ne. CG_OK) call cg_error_exit_f
call cg_famname_read_f( family_name, ierr) call cg_famname_read_f( family_name, ierr)
if( ierr .ne. CG_OK) then if( ierr .ne. CG_OK) then
if( ierr .ne. CG_NODE_NOT_FOUND ) then if( ierr .ne. CG_NODE_NOT_FOUND ) then
call cg_error_exit_f call cg_error_exit_f
endif endif
endif endif
 End of changes. 23 change blocks. 
16 lines changed or deleted 47 lines changed or added

Home  |  About  |  Features  |  All  |  Newest  |  Dox  |  Diffs  |  RSS Feeds  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTP(S)