It doesn't work.When code looks like this:
program vol_aqua
implicit none
real::height,lenght,width,volume
character (8) :: name
OPEN (1,FILE='data01.csv',status='old')
read(1,*) name,height
read(1,*) name,lenght
read(1,*) name,width
volume=(height*lenght*width)/1000...