libsim  Versione 7.1.6

◆ arrayof_gridinfo_insert_array()

subroutine arrayof_gridinfo_insert_array ( type(arrayof_gridinfo this,
type(gridinfo_def), dimension(:), intent(in), optional  content,
integer, intent(in), optional  nelem,
integer, intent(in), optional  pos 
)

Method for inserting a number of elements of the array at a desired position.

If necessary, the array is reallocated to accomodate the new elements.

Parametri
thisarray object to extend
[in]contentobject of TYPE TYPE(gridinfo_def) to insert, if not provided, space is reserved but not initialized
[in]nelemnumber of elements to add, mutually exclusive with the previous parameter, if both are not provided, a single element is added without initialization
[in]posposition where to insert, if it is out of range, it is clipped, if it is not provided, the object is appended

Definizione alla linea 446 del file gridinfo_class.F90.

447 ENDIF
448 #endif
449 #ifdef HAVE_LIBGDAL
450 IF (grid_id_get_driver(this%gaid) == 'gdal') THEN
451 !gdalid = grid_id_get_gdalid(this%gaid)
452  CALL l4f_category_log(this%category,l4f_warn,"export to gdal not implemented" )
453 ENDIF
454 #endif
455 
456 END SUBROUTINE gridinfo_export
457 
458 
464 SUBROUTINE gridinfo_export_to_file(this, filename, categoryappend)
465 TYPE(arrayof_gridinfo) :: this
466 CHARACTER(len=*),INTENT(in) :: filename
467 CHARACTER(len=*),INTENT(in),OPTIONAL :: categoryappend
468 
469 INTEGER :: i, category
470 CHARACTER(len=512) :: a_name
471 TYPE(grid_file_id) :: output_file
472 TYPE(grid_id) :: valid_grid_id
473 
474 IF (PRESENT(categoryappend)) THEN
475  CALL l4f_launcher(a_name,a_name_append= &
476  trim(subcategory)//"."//trim(categoryappend))
477 ELSE
478  CALL l4f_launcher(a_name,a_name_append=trim(subcategory))
479 ENDIF
480 category=l4f_category_get(a_name)

Generated with Doxygen.