Path: utzoo!mnetor!uunet!seismo!sundc!pitstop!sun!decwrl!labrea!aurora!eos!ames!hao!gatech!bbn!uwmcsd1!csd4.milw.wisc.edu!zdenko
From: zdenko@csd4.milw.wisc.edu (Zdenko Tomasic)
Newsgroups: comp.lang.fortran
Subject: Re: F8X response (long) (mktemp from FORTRAN)
Message-ID: <4951@uwmcsd1.UUCP>
Date: 28 Feb 88 09:18:44 GMT
References: <705@elxsi.UUCP> <44400017@hcx2> <6502@j.cc.purdue.edu> <2883@alvin.mcnc.org> <6518@j.cc.purdue.edu>
Sender: daemon@uwmcsd1.UUCP
Reply-To: zdenko@csd4.milw.wisc.edu (Zdenko Tomasic)
Organization: University of Wisconsin-Milwaukee
Lines: 72
Keywords: mktemp, unique file names, FORTRAN
Summary: it could be done, see below

The following worked for me (4.3BSD):

Script started on Sun Feb 28 03:10:24 1988
(csd4) !: cat m.f
        character*6  t
        iflnam=mn(t,6)
        open(7,file=t)
        write(7,*) '-file-',iflnam,' ',t
        stop
        end
(csd4) !: cat mm.c
/*    make uniq filename */

#include <stdio.h>
#include <ctype.h>
  
mn_(ffn) 
   char *ffn;

{
   char *mktemp();
   char *fn= "XXXXXX"; 

   fn = mktemp(fn);
   strcpy(ffn,fn); 
}
(csd4) !: f77 -o m.a mm.c mm.f
mm.c:
m.f:
   MAIN:
(csd4) !: lt
[Ktotal 2828
[K-rw-------  1 zdenko         21 Feb 28 03:11 029522
[K-rwx------  1 zdenko      33792 Feb 28 03:11 m.a
[K-rw-------  1 zdenko        885 Feb 28 03:11 m.o
[K-rw-------  1 zdenko        189 Feb 28 03:11 mm.o
[K-rw-------  1 zdenko          0 Feb 28 03:10 _r
[K-rw-------  1 zdenko         21 Feb 28 03:08 029488
[K-rw-------  1 zdenko        183 Feb 28 03:08 mm.c
[K-rw-------  1 zdenko         21 Feb 28 03:07 029461
[K-rw-------  1 zdenko         21 Feb 28 03:07 029447
[K-rw-------  1 zdenko         21 Feb 28 03:06 029439
[K-rw-------  1 zdenko         17 Feb 28 03:05 029423
[K-rw-------  1 zdenko         93 Feb 28 03:04 m.f
[K-rw-------  1 zdenko         10 Feb 28 03:02 029394
[K-rw-------  1 zdenko         10 Feb 28 03:02 a
[K-rw-------  1 zdenko         10 Feb 28 02:50 
[K-rw-------  1 zdenko         10 Feb 28 02:48 027793
[K-rw-------  1 zdenko         10 Feb 28 02:46 027733
[K-rw-------  1 zdenko         10 Feb 28 02:44 027708
[K-rw-------  1 zdenko         10 Feb 28 02:43 027693
[K-rwx------  1 zdenko      33792 Feb 28 02:36 cf.a
[K-rw-------  1 zdenko        882 Feb 28 02:36 cf.o
[K-rw-------  1 zdenko        301 Feb 28 02:36 ch.o
[K[7m[K--More--[Press space to continue, 'q' to quit.][m[J
(csd4) !: cat 029522
-file-  23616 029522
(csd4) !: x
2.0u 2.9s 1:22 6% 38+43k 177+141io 44pf+0w
Logged out Sun Feb 28 03:11:47 CST 1988. Pls turn your terminal off.
exit

script done on Sun Feb 28 03:11:47 1988


Zdenko Tomasic
UWM, Chem. Dept.
Milwaukee,WI,53201
__________________________________________________________
UUCP: ihnp4!uwmcsd1!csd4.milw.wisc.edu!zdenko
ARPA: zdenko@csd4.milw.wisc.edu
__________________________________________________________