libsim  Versione 7.2.1

◆ interval_info_new()

type(interval_info) function, public grid_transform_class::interval_info_new ( real, intent(in), optional  interv_gt,
real, intent(in), optional  interv_ge,
real, intent(in), optional  interv_lt,
real, intent(in), optional  interv_le 
)
Parametri
[in]interv_gtgreater than condition for defining interval
[in]interv_gegreater equal condition for defining interval
[in]interv_ltless than condition for defining interval
[in]interv_leless equal condition for defining interval

Definizione alla linea 583 del file grid_transform_class.F90.

584  call l4f_category_log(this%category,l4f_error,"zoom: coordbb parameters missing")
585  call raise_fatal_error()
586 
587  end if
588 
589  else if (this%sub_type == 'index')then
590 
591  IF (c_e(this%rect_ind%ix) .AND. c_e(this%rect_ind%iy) .AND. &
592  c_e(this%rect_ind%fx) .AND. c_e(this%rect_ind%fy)) THEN
593 
594 ! check
595  IF (this%rect_ind%ix > this%rect_ind%fx .OR. &
596  this%rect_ind%iy > this%rect_ind%fy) THEN
597 
598  CALL l4f_category_log(this%category,l4f_error,'invalid zoom indices: ')
599  CALL l4f_category_log(this%category,l4f_error, &
600  trim(to_char(this%rect_ind%ix))//'/'// &
601  trim(to_char(this%rect_ind%fx)))
602  CALL l4f_category_log(this%category,l4f_error, &
603  trim(to_char(this%rect_ind%iy))//'/'// &
604  trim(to_char(this%rect_ind%fy)))
605 
606  CALL raise_fatal_error()
607  ENDIF
608 
609  ELSE
610 
611  CALL l4f_category_log(this%category,l4f_error,&
612  'zoom: index parameters ix, iy, fx, fy not provided')
613  CALL raise_fatal_error()
614 
615  ENDIF

Generated with Doxygen.