procedure sub_name(const x1,x2:double; var x3,x4:double);
这里，x1,x2被定义为常数类型的双精度实数，其参数传递方式为第二种，即call by value，其值在传递中保持不变；x3, x4为变量类型的双精度整数，其传递方式为第一种，即call by reference，其值在计算中可以被改变*。在默认情况下，即参数前面没有说明属于那种类型的参数，则默认为常数类型。
也可以采用delphi中的指针变量来获得与fortran默认条件下完全相同的调用方式：
