小编use*_*052的帖子

我正在尝试编译一个使用一堆模块的fortran程序.编译时我得到一个错误,这让我发疯了.该错误是由添加一个子例程引起的,当我尝试重新编译程序时发生:

主程序包含以下两行:

-

call read_step(nStepOne,molOne)
call read_step(nStep,mol)

-

这是调用文件"fileio.f90"子程序中的一种:

-

subroutine read_step(n,tape)

implicit none

integer, intent(in) :: tape
integer, intent(out) :: n

character(len=6) :: dum

rewind(tape)
read (tape,*)
read (tape,*) dum, n
rewind(tape)
return
!
end subroutine read_step

-

当我尝试编译它时,出现以下错误:

ifort -o SpIdMD.x *.o -static-intel -openmp 
SpIdMD.o: In function `MAIN__':
SpIdMD.f90:(.text+0x3b2): undefined reference to `read_step_'
SpIdMD.f90:(.text+0x3c5): undefined reference to `read_step_'
make: *** [SpIdMD.x] Error 1

在同一个模块中对子程序的其他调用没有给出任何错误,我只是看不到对"旧子程序"的调用与我刚刚创建的那个之间的任何区别.

这些"旧子程序"中的一个没有任何抱怨的例子是:

在主程序中:

call get_dim(n_atom,nSnap,mol)

在fileio.f90中:

subroutine get_dim(n,n_snap,tape)

implicit none

integer,intent(in) :: tape
integer,intent(out) :: …

我不明白这一点：

const VALUES = {
  name: "name",
  age: "age",
  address: "address",
};

export function getVal(key: string) {
  if (key in VALUES) {
// Element implicitly has an 'any' type because expression of type 'string' can't be used to index type '{ name: string; age: string; address: string; }'.
//  No index signature with a parameter of type 'string' was found on type '{ name: string; age: string; address: string; }'.ts(7053)
    return VALUES[key];
  }

  return "";
}

条件明确地使成为true 分支中的key键之一。 …