libsim  Versione7.2.6

◆ geo_proj_delete()

subroutine geo_proj_delete ( type(geo_proj), intent(inout)  this)

Destroy a geo_proj object.

Definizione alla linea 577 del file geo_proj_class.F90.

577 
582 SUBROUTINE geo_proj_write_unit(this, unit)
583 TYPE(geo_proj),INTENT(in) :: this
584 INTEGER, INTENT(in) :: unit
585 
586 CHARACTER(len=40) :: form
587 
588 INQUIRE(unit, form=form)
589 IF (form == 'FORMATTED') THEN
590  WRITE(unit,*)this
591 ELSE
592  WRITE(unit)this
593 ENDIF

Generated with Doxygen.