libsim Versione 7.1.11

◆ arrayof_gridinfo_append()

integer function, private arrayof_gridinfo_append ( type(arrayof_gridinfo this,
type(gridinfo_def), intent(in)  content 
)
private

Quick method to append an element to the array.

The return value is the position at which the element has been appended.

Parametri
thisarray object to extend
[in]contentobject of TYPE TYPE(gridinfo_def) to append

Definizione alla linea 499 del file gridinfo_class.F90.

500 CALL export(this%array(i)) ! export information to gaid
501 CALL export(this%array(i)%gaid, output_file) ! export gaid to file
502 ENDDO
503! close file
504 CALL delete(output_file)
505 ELSE
506 CALL l4f_category_log(category,l4f_error,"opening file "//trim(filename))
507 CALL raise_error()
508 ENDIF

Generated with Doxygen.