@@ -22177,6 +22177,7 @@ SUBROUTINE READ_GEOM
2217722177 DEVC_ID,CTRL_ID,SURF_IDS(3),SURF_ID6(6),MOVE_ID
2217822178CHARACTER(FN_LENGTH) :: BUFFER,FN_BINGEOM,BINARY_FILE
2217922179CHARACTER(LABEL_LENGTH), ALLOCATABLE, DIMENSION(:) :: SURF_ID
22180+ CHARACTER(MESSAGE_LENGTH) :: FYI
2218022181REAL(EB), ALLOCATABLE, DIMENSION(:) :: ZVALS,TFACES
2218122182REAL(EB), ALLOCATABLE, TARGET, DIMENSION(:) :: VERTS,VERTS_AUX
2218222183INTEGER, ALLOCATABLE, DIMENSION(:) :: SURF_ID_IND,POLY
@@ -22235,7 +22236,7 @@ SUBROUTINE READ_GEOM
2223522236
2223622237NAMELIST /GEOM/ BNDF_GEOM,BINARY_FILE,CELL_BLOCK_IOR,CELL_BLOCK_ORIENTATION,COLOR,CYLINDER_ORIGIN,CYLINDER_AXIS,&
2223722238 CYLINDER_RADIUS,CYLINDER_LENGTH,CYLINDER_NSEG_THETA,CYLINDER_NSEG_AXIS,&
22238- EXTRUDE,EXTEND_TERRAIN,FACES,ID,IJK,IS_TERRAIN,MOVE_ID,N_LAT,N_LEVELS,N_LONG,POLY,&
22239+ EXTRUDE,EXTEND_TERRAIN,FACES,FYI, ID,IJK,IS_TERRAIN,MOVE_ID,N_LAT,N_LEVELS,N_LONG,POLY,&
2223922240 RGB,SPHERE_ORIGIN,SPHERE_RADIUS,SPHERE_TYPE,SURF_ID,SURF_IDS,SURF_ID6,&
2224022241 TEXTURE_MAPPING,TEXTURE_ORIGIN,TEXTURE_SCALE,TRANSPARENCY,&
2224122242 VERTS,XB,ZMIN,ZVALS,ZVAL_HORIZON
@@ -24311,6 +24312,7 @@ SUBROUTINE SET_GEOM_DEFAULTS
2431124312 MOVE_ID = 'null'
2431224313 DEVC_ID = 'null'
2431324314 CTRL_ID = 'null'
24315+ FYI = 'null'
2431424316 HAVE_SURF = .TRUE.
2431524317 HAVE_MATL = .TRUE.
2431624318 TEXTURE_ORIGIN = 0.0_EB
0 commit comments