Learn methods and guidelines for using stereolithography (SLA) 3D printed molds in the injection molding process to lower costs and lead time. Discover how this hybrid manufacturing process enables on-demand mold fabrication to quickly produce small batches of thermoplastic parts. Download Now
Examine how the principles of DfAM upend many of the long-standing rules around manufacturability - allowing engineers and designers to place a part’s function at the center of their design considerations. Download Now
Metal 3D printing has rapidly emerged as a key technology in modern design and manufacturing, so it’s critical educational institutions include it in their curricula to avoid leaving students at a disadvantage as they enter the workforce. Download Now
This ebook covers tips for creating and managing workflows, security best practices and protection of intellectual property, Cloud vs. on-premise software solutions, CAD file management, compliance, and more. Download Now
RE: end of character variable
program LOOP
implicit none
CHARACTER(LEN=50) :: string
INTEGER(kind=8) :: NRuns,i,k,l
do i=1,NRuns
.
.
.
! read from SCREEN.OUT
OPEN(UNIT=80,FILE='SCREEN.OUT')
! read 24 lines
do j = 1,24
read(80,'(a)')string
end do
! read line 25 as string of characters
READ(80,'(A)')string
l = LEN(string)
if (l.gt.0) then
k = INDEX(string,'=')
if (k.gt.0.and.k.lt.l) then
! read value after '='
READ(string(k+1:l),*,iostat=ierr)value
if (ierr.ne.0) then
write(6,*)'error reading line:-'
write(6,'(a)')string
end if
end if
end if
CLOSE(UNIT=80)
end do
end program
RE: end of character variable
RE: end of character variable
RE: end of character variable
"end=" would be useful in reading the file as with
read(80,'(a)',end=999)string
but not for an internal read where "iostat=ierr" is used.
RE: end of character variable
RE: end of character variable