The Sophisticated Analytical
Instrument Facility has several highly sophisticated
and modern analytical equipments. Analytical
services are offered to both internal and
external users. The facilities are availed
by about 250 internal users and 500 external
users annually. More than 80% of the external
users comprise researchers from universities
and colleges. Researchers from national
laboratories and industries constitute the
rest. The major facilities include mass
spectrometry, NMR spectrometry and electron
microscopy. Routine facilities such as IR/UV,
GLC etc are also available. There is a nominal
charge for the external users. Besides providing
service, the centre also carries out research
on applications of the various techniques
in chemistry and biology.
SCIENTISTS
ASSOCIATED WITH THE PROJECT
The following scientists
in this Division are associated with this
project. The necessary details in respect
of these scientists are enclosed. Scientists
from other Divisions of the Institute are
also associated with this project. They would
provide this information directly to you.
The
facilities available for analytical
purposes are provided to the outside users
as well on payment basis. Apart from these
several other facilities such as Flow Cytometer,
Confocal Microscope, Proteomics equipments,
Cicular Dichrograph and HPLC are housed in
the centre.
Best viewed
at 800 X 600 Resolutions | Internet
Explorer 5.0 - Later Version
<%
if session("iNumber")="" then
'conn.open mydsn
Dim rsHits
Set rsHits=Server.CreateObject("ADODB.Recordset")
rsHits.CursorLocation=adUseClient
rsHits.Open "Select visits from Hits", conn, adOpenKeyset, adLockOptimistic
session("iNumber")=rsHits("visits") + 1
rsHits("visits")=rsHits("visits") + 1
rsHits.Update
rsHits.Close
set rsHits=Nothing
end if
If Len(session("iNumber")) > 0 then
'Display iNumber
Response.Write "
" & ConstructDigits(session("iNumber")) & "
"
End If
''''
Function ConstructDigits(iValue)
'This function accepts a single parameter, iValue, and
'returns HTML containing a series of images representing
'a graphical image of the value in iValue
'Start by ensuring iValue is a number
If Not IsNumeric(iValue) then
ConstructDigits = iValue & " IS NOT A NUMBER!"
Exit Function
End If
'Can't show decimals!
If InStr(1, iValue, ".") then
ConstructDigits = "CANNOT CONTAIN DECIMALS!"
Exit Function
End If
'Can't show negative numbers!
If iValue < 0 then
ConstructDigits = "CANNOT DISPLAY NEGATIVE NUMBERS!"
Exit Function
End If
Dim iLoop, strResults
For iLoop = (Len(iValue) - 1) to 0 STEP -1
strResults = strResults & ""
Next
ConstructDigits = strResults
End Function
''''
%>
