libsim  Versione 7.1.6

◆ to_char_dat()

character(len=80) function to_char_dat ( type(vol7d_var), intent(in)  this,
integer  idat,
real  rdat,
double precision  ddat,
integer(kind=int_b)  bdat,
character(len=*)  cdat 
)
Parametri
rdatreal
ddatdouble precision
idatinteger
bdatbyte
cdatcharacter

Definizione alla linea 928 del file vol7d_class.F90.

929  IF (nnetwork >= 0) THEN
930  IF (ASSOCIATED(this%network)) DEALLOCATE(this%network)
931  ALLOCATE(this%network(nnetwork))
932  IF (linit) THEN
933  DO i = 1, nnetwork
934  CALL init(this%network(i))
935  ENDDO
936  ENDIF
937  ENDIF
938 ENDIF
939 ! Dimensioni dei tipi delle variabili
940 CALL vol7d_varvect_alloc(this%anavar, nanavarr, nanavard, &
941  nanavari, nanavarb, nanavarc, ini)
942 CALL vol7d_varvect_alloc(this%anaattr, nanaattrr, nanaattrd, &
943  nanaattri, nanaattrb, nanaattrc, ini)
944 CALL vol7d_varvect_alloc(this%anavarattr, nanavarattrr, nanavarattrd, &
945  nanavarattri, nanavarattrb, nanavarattrc, ini)
946 CALL vol7d_varvect_alloc(this%dativar, ndativarr, ndativard, &
947  ndativari, ndativarb, ndativarc, ini)
948 CALL vol7d_varvect_alloc(this%datiattr, ndatiattrr, ndatiattrd, &
949  ndatiattri, ndatiattrb, ndatiattrc, ini)
950 CALL vol7d_varvect_alloc(this%dativarattr, ndativarattrr, ndativarattrd, &
951  ndativarattri, ndativarattrb, ndativarattrc, ini)
952 
953 END SUBROUTINE vol7d_alloc
954 
955 
956 FUNCTION vol7d_check_alloc_ana(this)
957 TYPE(vol7d),INTENT(in) :: this
958 LOGICAL :: vol7d_check_alloc_ana
959 
960 vol7d_check_alloc_ana = ASSOCIATED(this%ana) .AND. ASSOCIATED(this%network)
961 
962 END FUNCTION vol7d_check_alloc_ana
963 
964 SUBROUTINE vol7d_force_alloc_ana(this, ini)
965 TYPE(vol7d),INTENT(inout) :: this
966 LOGICAL,INTENT(in),OPTIONAL :: ini
967 

Generated with Doxygen.