Thank you very much dear friends.
write, read and open statements are:
WRITE(*,'(A)')'NAME OF INPUT FILE(MAX. 10 CHART.)'
READ(*,'(A)')FILEIN
OPEN(INP,FILE=FILEIN,STATUS='OLD')
that INP is specific.
I replace FILEIN in open statement with directory path...