-----原始邮件-----
发件人: "关远帆" <guanyf_at_lzu.edu.cn>
发送时间: 2020-05-18 17:22:20 (星期一)
收件人: msantana_at_slac.stanford.edu
抄送:
主题: Fw: Fw: question about cfortran.h
-----原始邮件-----
发件人: "关远帆" <guanyf_at_lzu.edu.cn>
发送时间: 2020-05-18 17:20:04 (星期一)
收件人: Olivier.Couet_at_cern.ch
抄送:
主题: Fw: question about cfortran.h
-----原始邮件-----
发件人: "关远帆" <guanyf_at_lzu.edu.cn>
发送时间: 2020-05-18 17:07:34 (星期一)
收件人: burow_at_desy.de
抄送:
主题: question about cfortran.h
dear Sir:
May I ask how to run the example contain "cfortran"?
I have install cfortran,but compile of the example always error,such as:#error "cfortran.h: Can't find your environment among:\
the example is here:
/* easy.c */ /* anonymous ftp_at_zebra.desy.de */
/* An example from cfortran.h package. Requires easy_f.f */
/* Burkhard Burow burow_at_desy.de 1990 - 1997. */
#include <stdio.h>
#include <stdlib.h> /* EXIT_SUCCESS */
#ifndef EXIT_SUCCESS
#define EXIT_SUCCESS 0
#endif
#include "cfortran.h"
PROTOCCALLSFSUB2(EASY,easy, PINT, INT)
#define EASY(A,B) CCALLSFSUB2(EASY,easy, PINT, INT, A, B)
main() {
int a;
EASY(a,7);
printf("The FORTRAN routine EASY(a,7) returns a = %d\n", a);
return EXIT_SUCCESS;
}
//******************************************************************************************
C /* easy_f.f */ /* anonymous ftp_at_zebra.desy.de */
C /* An example from cfortran.h package. Requires easy.c */
C /* Burkhard Burow burow_at_desy.de 1990 - 1996. */
subroutine EASY(a,b)
implicit none
integer a,b
a = b
return
end
</stdlib.h></stdio.h></guanyf_at_lzu.edu.cn></guanyf_at_lzu.edu.cn></guanyf_at_lzu.edu.cn>
__________________________________________________________________________
You can manage unsubscription from this mailing list at
https://www.fluka.org/fluka.php?id=acc_info
- text/x-csrc attachment: easy.c
Received on Mon May 18 2020 - 13:17:52 CEST