open(unit=4,file= trim(generic)//achar(digit2(1))//achar(digit2(2))//achar(digit2(3))//achar(digit2(4))//'.gjf', status='replace',a
1
Error: Syntax error in OPEN statement at (1)
..\..\..\..\sampling\frequency\Distortion.f90:272.130:
case(' C ',' C1',' C2',' C3',' C4',' C5',' C6',' C7',' C8',' C9',' C10',' C11',' C12',' C13',' C14',' C15',' C16',' C
1
Error: Unterminated character constant beginning at (1)
..\..\..\..\sampling\frequency\Distortion.f90:273.33:
typetomass = 1
1
Error: Expected a CASE or END SELECT statement following SELECT CASE at (1)
Error(E42): Last command making (build\Distortion.o) returned a bad status
Error(E02): Make execution terminated