|
◆ geo_coord_vect_write_unit()
subroutine geo_coord_class::geo_coord_vect_write_unit |
( |
type(geo_coord), dimension(:), intent(in) |
this, |
|
|
integer, intent(in) |
unit |
|
) |
| |
Scrive su un'unità di file il contenuto dell'oggetto this.
Il record scritto potrà successivamente essere letto con la ::read_unit. Il metodo controlla se il file è aperto per un I/O formattato o non formattato e fa la cosa giusta.
- Parametri
-
[in] | this | oggetto da scrivere |
[in] | unit | unità su cui scrivere |
Definizione alla linea 680 del file geo_coord_class.F90.
680 ELSE IF ( PRESENT(shphandle)) THEN 681 IF ( PRESENT(nshp)) THEN 687 shpobj = shpcreatesimpleobject(this%vtype, this%vsize, & 688 REAL(this%ll(1:this%vsize,1),kind=fp_d), & 689 REAL(this%ll(1:this%vsize,2),kind=fp_d)) 690 IF (.NOT.shpisnull(shpobj)) THEN 692 i=shpwriteobject(shphandle, lnshp, shpobj) 693 CALL shpdestroyobject(shpobj)
|