＜DECIMAL= Example Program＞

Program decimal_example
  Write (*,1,Decimal='Point') 1.5,2.5,3.5
1 Format(1X,F5.1,DP,F5.1,DC,F5.1)
  Write (*,1,Decimal='Comma') 1.5,2.5,3.5
End Program

■ Execution Results

   1.5   2.5   3,5
   1,5   2.5   3,5