libsim Versione 7.2.4
|
◆ init_fn()
Definizione alla linea 113 del file alchimia_full_2003.F03. 114fnv=fn
115
116end subroutine fnv_delete
117
118
119subroutine fnregister(vfn,fn,order)
120
121type(fndsv),intent(inout) :: vfn
122type(fnds),intent(in),optional :: fn
123integer,optional :: order
124
125integer :: nfn
126type(fndsv) :: vfntmp
127
128if (.not. allocated(vfn%fnds))then
129 allocate(vfn%fnds(0))
130 vfn%nout=0
131end if
132
133if (present(fn))then
134
135 if (firsttrue(vfn%fnds == fn) /= 0) return
136 nfn=size(vfn%fnds)
137
138 allocate(vfntmp%fnds(nfn+1))
139
140 vfntmp%fnds(:nfn)=vfn%fnds
141
142 call move_alloc(from=vfntmp%fnds ,to=vfn%fnds)
143
144 vfn%fnds(nfn+1)=fn
145 if (present(order)) vfn%fnds(nfn+1)%order = order
146
|