90 lines · plain
1module modfile73ba2 use modfile73a, only: re_alloc, de_alloc3 charactermod_name4 type lData1D5 integer refCount 6 character id 7 character name 8 end type9 type TYPE_NAME10 type(lData1D), pointer :: data => null()11 end type12 interface refcount13 end interface14 interface initialized15 end interface16 interface same17 end interface18CONTAINS19 subroutine init_(this)20 end 21 subroutine delete_(this)22 end 23 subroutine assign_(this, other)24 end 25 function initialized_(thisinit)26 end 27 function same_(this1,this2same)28 end 29 function refcount_(thiscount)30 end 31 function id_(thisstr)32 end 33 function name_(this) result(str)34 type(TYPE_NAME) this35 character(len_trim(this%data%name)) str36 end 37 subroutine tag_new_object(this)38 end 39 subroutine delete_Data(a1d_data)40 end 41end 42 43module modfile73bb44 use modfile73a, only: re_alloc, de_alloc45 charactermod_name46 type lData1D47 integer refCount 48 character id 49 character name 50logical, pointer :: val => null() 51 end type52 TYPE_NAME53 type(lData1D), pointer :: data => null()54 end type55 PRIVATE56 public TYPE_NAME57 public initdelete, assignment, refcount, id58 public name59 public allocated60 interface init61 end interface62 interface delete63 end interface64 interface initialized65 subroutine die(str)66 end 67 end interface68CONTAINS69 subroutine init_(this)70 end 71 subroutine delete_(this)72 end 73 subroutine assign_(this, other)74 end 75 function initialized_(thisinit)76 end 77 function same_(this1,this2same)78 end 79 function refcount_(thiscount)80 end 81 function id_(thisstr)82 end 83 function name_(thisstr)84 end 85 subroutine tag_new_object(this)86 end 87 subroutine delete_Data(a1d_data)88 end 89end90