"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "src/tests/cgsubreg_f03.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.

cgsubreg_f03.F90  (CGNS-4.1.2):cgsubreg_f03.F90  (CGNS-4.2.0)
program cgsubreg program cgsubreg
#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 ierr, cgfile, cgbase, cgzone, cgcoord integer ierr, cgfile, cgbase, cgzone, cgcoord
integer dim, csub, nsub integer dim, csub, nsub
integer(cgsize_t) i, j, k, n, size(9) integer(cgsize_t) i, j, k, n, size(9)
integer(cgsize_t) ptrange(6), ptlist(125), npts integer(cgsize_t) ptrange(6), ptlist(125), npts
integer(cgenum_t) loc, ptype integer(cgenum_t) loc, ptype
integer bclen, gclen integer bclen, gclen
real*4 x(125), y(125), z(125) real(kind=sp) x(125), y(125), z(125)
character*32 sname, cname character(len=32) sname, cname
! open and write base ! open and write base
dim = 3 dim = 3
call cg_open_f('cgsubreg.cgns', CG_MODE_WRITE, cgfile, ierr) call cg_open_f('cgsubreg.cgns', 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
call cg_base_write_f(cgfile, 'Base', dim, dim, cgbase, ierr) call cg_base_write_f(cgfile, 'Base', dim, dim, cgbase, ierr)
if (ierr .ne. CG_OK) call cg_error_exit_f if (ierr .ne. CG_OK) call cg_error_exit_f
! create some bogus data ! create some bogus data
do n=1,3 do n=1,3
 End of changes. 2 change blocks. 
2 lines changed or deleted 4 lines changed or added

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