Added declaration of nest derived data type

src/read_input_file.f90

@@ -17,7 +17,7 @@
 !------------------------------------------------------------------------------|
 
 subroutine read_input_file (params,threadinfo,material0,mat,surface,boxes,     &
-                           sections,cube_faces)         
+                           sections,cube_faces,nest)         
 
 !------------------------------------------------------------------------------|
 !(((((((((((((((( Purpose of the routine  ))))))))))))))))))))))))))))))))))))))
@@ -131,6 +131,7 @@ type (sheet) surface(params%ns)
 type (box) boxes(params%nboxes)
 type (cross_section) sections(params%nsections)
 type (face),dimension(6) :: cube_faces
+type (nest_info) :: nest
 
 !------------------------------------------------------------------------------|
 !(((((((((((((((( declaration of the subroutine internal variables )))))))))))))