libsim Versione 7.2.0
|
◆ geo_proj_delete()
Destroy a geo_proj object. Definizione alla linea 566 del file geo_proj_class.F90. 567
568INQUIRE(unit, form=form)
569IF (form == 'FORMATTED') THEN
570 READ(unit,*)this
571ELSE
572 READ(unit)this
573ENDIF
574
575END SUBROUTINE geo_proj_read_unit
576
577
582SUBROUTINE geo_proj_write_unit(this, unit)
583TYPE(geo_proj),INTENT(in) :: this
|