Thanks for your reply Catherine. I should have provided the specific example
I am trying to convert. The following code is defined in a module and is
used through out the program:
TYPE subm_struct
REAL(8) :: sel_time
REAL(8) :: start_path_time
REAL(8) :: dpress_ang
REAL(8) :: rstart_circ,thstart_circ,vstart_circ
REAL(8) , DIMENSION(max_no_legs) :: waypt,waypv,waypa
REAL(8) , DIMENSION(max_no_legs) :: wayph,waypx,waypy
REAL(8) , DIMENSION(max_no_legs) :: wayprd,waypth
REAL(8) , DIMENSION(max_no_cuts,max_no_objs_seen) :: tenter
REAL(8) , DIMENSION(max_no_cuts,max_no_objs_seen) :: texit
REAL(8) , DIMENSION(max_no_objects) :: prev_tenter_bytgt
INTEGER(4), DIMENSION(max_no_objs_seen) :: tgt_cut_ind
INTEGER(4), DIMENSION(max_no_objs_seen) :: no_cuts_tgt
INTEGER(4), DIMENSION(max_no_objects) :: encntr
INTEGER(4), DIMENSION(max_no_objs_seen) :: found
INTEGER(4), DIMENSION(max_no_objs_seen) :: found_id
INTEGER(4) :: no_encntr
INTEGER(4) :: no_tgts_nlist, no_cut
INTEGER(4) :: nway_points
INTEGER(4) :: no_found
INTEGER(4) :: no_no_time
INTEGER(4) :: nclut_tgts
INTEGER(4) :: tgt_sel_num, tgt_pri_num
INTEGER(4) :: tgt_selected, acq_selected, acq_sel_pri
INTEGER(4) :: no_acquired, no_acq_pri
INTEGER(4) :: flstgt_slctd
INTEGER(4) :: tgt_area
LOGICAL, DIMENSION(max_no_objects) :: acquired
LOGICAL, DIMENSION(max_no_objects) :: prev_in
LOGICAL, DIMENSION(max_no_objects) :: cut_tgt
LOGICAL :: redirect
LOGICAL :: called
LOGICAL :: cut, hit, kill, tgt_fnd_dead
END TYPE
TYPE (SUBM_STRUCT), DIMENSION(MAX_NO_SMRT_SUBMS) :: SUBM_DATA
The only variables that I need to allocate are:
REAL(8) , DIMENSION(max_no_legs) :: waypt,waypv,waypa
REAL(8) , DIMENSION(max_no_legs) :: wayph,waypx,waypy
REAL(8) , DIMENSION(max_no_legs) :: wayprd,waypth
I am looking for the least painful an elegant way to make this change
without having to rewrite a lot of code.
Thanks,
Bob
Bob
|