crap modula didnt work
this code does work using 1 and n-1
program dlink
c Matt Smith
c CS450
c sDatae Fortran Doubly Linked List Assignment 1
c23456789
real n
real sDatae,cDatae,sDatae1,cDatae1
real sData(10000)
real cData(10000)
write(*,*), 'Input n for Number...