gfortranで関数が見つからないというundefined symbols ...エラーが出ます。

Question

下記のstl_reshape.f90, calc_deformation.f90を用いたmain.f90を

gfortran calc_deformation.f90 stl_reshape.f90 main.f90 -o main.exec

とgfortranでコンパイルすると

Undefined symbols for architecture x86_64:
"calcdeform", referenced from:
___stl_reshape_MOD_calcstl in ccfyAJdE.o
ld: symbol(s) not found for architecture x86_64
collect2: error: ld returned 1 exit status

というようなエラーが出ます。
-cオプションでコンパイルのみ行うときはエラーが出ないので、リンク時にエラーが出ているのだと思うのですが、
エラーをなくすにはどうしたら良いでしょうか？

エラーが出るのは関数だけで、subroutineの方は問題ないようです。

------------------------------- main.f90 -------------------------------------
program main
use stl_reshape
implicit none
...

call calcSTL
end program main

---

--------------------------------- stl_reshape.f90 ------------------------------
module stl_reshape
use calc_deformation

implicit none

private
public :: calcSTL

contains

...

subroutine calcSTL
double precision calcDeform
...

do i=1,num_vertex
  vertex_arr(1,3,i) = calcDeform(vertex_arr(1,2,i))
  vertex_arr(2,3,i) = calcDeform(vertex_arr(2,2,i))
  vertex_arr(3,3,i) = calcDeform(vertex_arr(3,2,i))
enddo

...

end subroutine calcSTL
end module stl_reshape

---

--------------------------------- calc_deformation.f90 --------------------------
module calc_deformation
implicit none
private
public :: calcDeform

contains

function calcDeform(y)
double precision, intent(in) :: y
double precision calcDeform

calcDeform = y**2

end function calcDeform

end module calc_deformation

---

Answer 1

こんにちは。直接の回答ではないこと、ご了承ください。

コードが一部、省略されていて同じエラーが再現しないのですが、public :: calcDeformが外部シンボルとして正しく認識されていないように思えます。

calcSTL サブルーチンで calcDeform関数が呼ばれているものの、同時に同じ名前でcalcDeform変数が宣言されてもいるので、混乱があったりするのではないでしょうか。

double precision calcDeform

vertex_arr関数（？）がどのような定義になっているか分からないですが、コードをもう少し提示すれば良い回答がいただけるかもしれません。

Comments

[nishiys]

関数の定義の仕方を
function calcDerfom(y) return (w)
のようにすることで解決できました。
もしかすると配列を引数に取り、配列を返す関数はこちらの定義の仕方でないとダメなのか(ただループ内に入れているので、普通の変数を引数にとって普通の変数で返しているので違うかも知れませんが、、)、関数の型宣言のところでおかしなことが起こっていたのかも知れません。
いずれにせよ、解決のヒントになりました。ご回答ありがとうございました。