Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations Chriss Miller on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Array of user defined types!

Status
Not open for further replies.

SmileeTiger

Programmer
Mar 13, 2000
200
US
I have a program and I want to have it allocate an array of list node based on user input. In the case below I want to allocata an array of type List_Node called group 1 with size Number of elements. How would I do this?


PROGRAM Sort_List
IMPLICIT NONE
TYPE List_Node
INTEGER :: iName
INTEGER :: iData
END TYPE List_Node
INTEGER :: NumberOfElements
WRITE (*, '(A)') "How many sets of records do you wish to enter?"
READ(*, "(1I5)") NumberOfElements
WRITE(*,*)NumberOfElements
END PROGRAM Sort_List
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top